Private Sub mnupop1Dienst_Click()
   Static n ' Zähler, wieviele Forms gezogen .....  
   Dim frmneu As frmDienstzeit  ' Objectvariable deklarieren 
   n = n + 1 ' Counter um 1 erhöhen 
   Set frmneu = New frmDienstzeit ' Neue Instanz erzeugen 
   frmneu.tag = n ' Neue Form mit Daten füllen 
   frmneu.Caption = "Dienstzeit von : " & cbMitarbeiter.Text
   frmneu.Show ' Anzeigen. 
   DienstWnds.Add frmneu, CStr(n) ' Neue Form in den Forms Container-eine 
   ' Collection aufnehmen.
End Sub

Private Sub Form_Load()
   With List1
     .Top = 0
     .Left = 0
     .Width = ScaleWidth
     .Height = ScaleHeight
   End With
   ListeDienstzeit List1
   FormOnTop Me.hWnd, True
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   DienstWnds.Remove tag
End Sub
 
Private Sub Form_Resize()
   List1.Width = ScaleWidth
   List1.Height = ScaleHeight
End Sub