Public Class Stühle
 
    Private _title As String = ""
 
    Private _stühle As New List(Of clsStuhl)
 
 
    Public Sub New()
    End Sub
 
 
    Public Property Title() As String
        Set(value As String)
            _title = value
        End Set
        Get
            Return _title
        End Get
    End Property
 
 
    Public Sub Add(ByVal stuhl As clsStuhl)
        If stuhl IsNot Nothing Then
            _stühle.Add(stuhl)
        End If
    End Sub
 
    'Hier ist Default anwendbar  
    Default Public Property Item(ByVal index As Integer) As clsStuhl
        Get
            Return _stühle(index)
        End Get
        Set(value As clsStuhl)
            _stühle(index) = value
        End Set
    End Property
End Class

'Erstellen einer Liste
Dim stühle As New Stühle
'Property setzen
stühle.Title = "Küchenstühle"
'Einen Stuhl in der Liste hinzufügen
stühle.Add(New clsStuhl)
'Eine(r) nimmt Platz
stühle(0).besetzt = True