Deklarationsteil:
 
Public MyForms As New Collection
Private NewForm As Form1 'Nur die Form 1 soll vervielfäldigt werden.
 
Private Sub AddNewForm()
    Static n As Integer
 
    Set NewForm = New Form1
    MyForms.Add NewForm, Cstr(n)
    NewForm.Show
End Sub