Option Explicit
 
Public MeinName As String
 
Public Sub GibAusName()
   MsgBox MeinName
End Sub

Option Explicit
 
Private ItemCol As Collection
 
Public Sub AddItem(WelcherName As String)
   Dim c As New clsItem
 
   c.MeinName = WelcherName
   ItemCol.Add c
 
   Set c = Nothing
End Sub
 
Public Function ItemCount() As Long
   ItemCount = ItemCol.Count
End Function
 
Public Function Item(Index As Long) As clsItem
   Set Item = ItemCol(Index)
End Function
 
Public Sub Remove(Index As Long)
   ItemCol.Remove Index
End Sub
 
Private Sub Class_Initialize()
   Set ItemCol = New Collection
End Sub
 
Private Sub Class_Terminate()
   Set ItemCol = Nothing
End Sub

Option Explicit
 
Private myItem As New clsItems
 
Private Sub Form_Load()
   myItem.AddItem "Roland"
   myItem.AddItem "Peter"
   myItem.AddItem "Paul"
 
   myItem.Item(1).GibAusName
   myItem.Item(2).GibAusName
   myItem.Item(3).GibAusName
 
   MsgBox "Anzahl Items: " & Format(myItem.ItemCount)
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control