Public Class clsStuhl
    Protected blnStuhlBesetzt As Boolean
 
    Sub New()
        blnStuhlBesetzt = False
    End Sub
 
    Property besetzt() As Boolean
        Get
            Return blnStuhlBesetzt
        End Get
        Set(value As Boolean)
            blnStuhlBesetzt = value
        End Set
    End Property
 
End Class
 
 
'Deklaration der leeren Liste ... (z.B. beim Programmstart)
Dim stühle As New List(Of clsStuhl)
 
 
'Erstellen eines leeren Stuhls (sobald Bedarf besteht)
stühle.Add(New clsStuhl)
 
'Eine(r) nimmt Platz ....
stühle(0).besetzt = True