كيف أعمل عدة نسخ من نفس الفورم في وقت التشغيل؟

اضف البرنامج الفرعي التالي الي برنامجك

ومن ثم استدعه في قائمة جديد وجرب واخبرنا

Private Sub LoadNewDoc()
    Static lDocumentCount As Long
    Dim frmD As frmDocument
    lDocumentCount = lDocumentCount + 1
    Set frmD = New frmDocument
    frmD.Caption = "Document " & lDocumentCount
    frmD.Show
End Sub

لك تحياتي