Private MyNewForm As Form1           ' das ist also die Form :-)
Private MyForms As New Collection 'aha ... hier also werden wir verwaltet :-)
 
Private Function AddMyNewForm() As Integer
        Static n As Integer
 
         n = n + 1
 
          Set myNewForm = New Form1
          With myNewform
                     .Visible = True
                     .Tag = CStr(n)
           End With
 
            MyForms.Add myNewForm,Cstr(n)
 
             AddMyNewForm = n
End Function