Private Bestlcol As New Collection
 
Private mGesamtHS As Integer
 
Private Sub Class_Initialize()
  Set Bestlcol = New Collection
End Sub
 
Private Sub Class_Terminate()
  Set Bestlcol = Nothing
End Sub
 
 
Public Property Get GesamtHS() As Integer
   GesamtHS = mGesamtHS
End Property
 
Public Property Get item(ByVal Index As Long) As clsBestLeistungen
   Set item = Bestlcol(Index)
End Property
 
Public Property Get count() As Long
   count = Bestlcol.count
End Property
 
Public Sub remove(ByVal Index As Integer)
   Dim it As clsBestLeistungen
   Set it = Bestlcol(Index)
   If Not it.hs = "" Then mGesamtHS = mGesamtHS - 1
   Bestlcol.remove Index
End Sub
 
Public Function Add(Datum As Date, Name As String, _
                    hs As String, SG As String, _
                    HF As String) As clsBestLeistungen
 
   Dim DSnew As New clsBestLeistungen
 
   With DSnew
     .Datum = Datum
     .Name = Name
     .hs = hs
     .SG = SG
     .HF = HF
 
     If Not .hs = "" Then mGesamtHS = mGesamtHS + 1
  End With
 
  Bestlcol.Add DSnew
 
End Function