Public Class clsStuhl
    Protected blnStuhlBesetzt As Boolean
 
    Sub New(ByVal blnBesetzt As Boolean)
        blnStuhlBesetzt = blnBesetzt
    End Sub
 
    Default Property besetzt(ByVal srtIndex As Short) As Boolean
        Get
            Return blnStuhlBesetzt 
        End Get
        Set(value As Boolean)
            blnStuhlBesetzt = value
        End Set
    End Property
 
End Class

Public objStuhl(5) As clsStuhl

objStuhl(index) = New clsStuhl(True)