Public MyForms As New Collection
Private MyForm as Form1
 
Private Function SetMyForm() As Integer
          Static n                                                ' der 
          ' statische Zähler
           n + n + 1                                             ' wird bei 
           ' jedem Funktionsaufruf incrementiert
 
            Set myForm = New Form1            ' neue Instanz auf Form1 bilden
            With Form1
                      .Visible = True
                      .Tag = Cstr(n)                          ' jetzt wird ja 
                      ' die ID zugewiesen.
             End With
             MyForms.Add myForm, Cstr(n)     'Form in die Collection aufnehmen, 
             ' mit Key
             GetMyForm = n                                 'Funktion gibt 
             ' ID-Nummer zurück
End Function
 
Private Sub RemoveMyForm(frm As Form1)
              MyForms.Remove Clng(frm.Tag)
End Sub
 
Private Function SelectMyForm(Byval sKey As String) As Form1
              Set SelectMyForm = MyForms(sKey)
End Function