Public Class clsVerwaltung
 
   Private m_Name As String
   Private m_Verein As New List(Of clsVerein)
 
   Public Property Name() As String
      Get
         Return m_Name
      End Get
      Set(ByVal value As String)
         m_Name = value
      End Set
   End Property
 
   Public Property Item(ByVal Index As Integer) As clsVerein
      Get
         Return m_Verein(Index)
      End Get
      Set(ByVal value As clsVerein)
         m_Verein(Index) = value
      End Set
   End Property
 
   Public Sub Add(ByVal NewVerein As clsVerein)
      Me.m_Verein.Add(NewVerein)
   End Sub
 
End Class

Public Class clsVerein
   Private m_Name As String
   Private m_SubVerein As New List(Of clsSubVerein)
 
   Public Property Name() As String
      Get
         Return m_Name
      End Get
      Set(ByVal value As String)
         m_Name = value
      End Set
   End Property
 
   Public Property Item(ByVal Index As Integer) As clsSubVerein
      Get
         Return m_SubVerein(Index)
      End Get
      Set(ByVal value As clsSubVerein)
         m_SubVerein(Index) = value
      End Set
   End Property
 
   Public Sub Add(ByVal NewSubVerein As clsSubVerein)
      Me.m_SubVerein.Add(NewSubVerein)
   End Sub
End Class

Public Class clsSubVerein
 
   Private m_SubName As String
 
   Public Property Subname() As String
      Get
         Return m_SubName
      End Get
      Set(ByVal value As String)
         m_SubName = value
      End Set
   End Property
End Class

Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      ' Verein
      Dim Schach As New clsVerein
      Schach.Name = "Schach"
 
      ' Verein
      Dim Halma As New clsVerein
      Halma.Name = "Halma"
 
      ' Vereine der Verwaltung übergeben
      Dim Verwaltung As New clsVerwaltung
      Verwaltung.Name = "Meine Vereine"
      Verwaltung.Add(Schach)
      Verwaltung.Add(Halma)
 
 
 
      ' SubVerein Schach
      Dim SubSchach As New clsSubVerein
      SubSchach.Subname = "Schachgruppe"
 
      ' SubVerein Halma
      Dim SubHalma As New clsSubVerein
      SubHalma.Subname = "Halmagruppe"
 
      ' Subverein an Vereine übergeben
      Verwaltung.Item(0).Add(SubSchach)
      Verwaltung.Item(1).Add(SubHalma)
 
 
      Debug.WriteLine(Verwaltung.Item(0).Name)
      Debug.WriteLine(Verwaltung.Item(0).Item(0).Subname)
      Debug.WriteLine(Verwaltung.Item(1).Name)
      Debug.WriteLine(Verwaltung.Item(1).Item(0).Subname)
 
   End Sub
End Class

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