Option Explicit
 
Private enumCtrl As Collection
 
Private Sub Class_Initialize()
       Set enumCtrl = New Collection
End Sub
 
Private Sub Class_Terminate()
       Set enumCtrl = Nothing
End sub
 
Public Sub Add(item As Variant, Optional Byval Key As String)
       enumCtrl.Add item, Key
       ' .....
       ' weitere Anweisungen zur Manipulation des Controls!
End Sub
 
Public Function Remove(Index As Variant)
        enumCtrl.Remove Index
End Function
 
Public Property Get Count() As Long
         Count = enumCtrl.Count
End Property
 
Public Function Item(Index As Variant)
         Set Item = enumCtrl.Item(Index)
End Function
 
'Damit die Member per For .... Each .... Anweisung erlangt werden können:
 
Public Function NewEnum() As IUnknown
      Set NewEnum = enumCtrl.[_NewEnum]
End Function