Option Explicit
Dim oForms As New Collection
 
Private Sub Command1_Click()
  ' Neue Form der Collection hinzufügen
  Dim oForm As New Form2
  oForms.Add oForm
  oForm.Caption = CStr(oForms.Count)
End Sub
 
Private Sub Command2_Click()
  ' 2. Form der Collection anzeigen
  oForms.Item(2).Show
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  ' Wichtig!
  ' alle Formen wieder entladen
  Dim i As Integer
  For i = 1 To oForms.Count
    Unload oForms.Item(i)
  Next i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de