Public Enum Status
    geschlossen = 0
    offen = 1
    gekippt = 2
End Enum
Public Enum heizt
    nein = 0
    ja = 1
End Enum
 
Public Class Raum
    Public Shared Heizung As New Heizung
    Public Shared Tür As New Tür
    Public Shared Fenster As New Fenster
End Class
 
Public Class fenster
    Public Property OpenStatus() As Status
        Get
 
        End Get
        Set(ByVal Value As Status)
 
        End Set
    End Property
End Class
 
Public Class tür
    Public Property OpenStatus() As Status
        Get
 
        End Get
        Set(ByVal Value As Status)
 
        End Set
    End Property
End Class
 
Public Class heizung
    Public Property aktTMP() As Integer
        Get
 
        End Get
        Set(ByVal Value As Integer)
 
        End Set
    End Property
    Public Property heizt() As heizt
        Get
 
        End Get
        Set(ByVal Value As heizt)
 
        End Set
    End Property
    Public Property sollTMP() As Integer
        Get
 
        End Get
        Set(ByVal Value As Integer)
 
        End Set
    End Property
End Class

Raum.Fenster.OpenStatus = Status.gekippt
        Raum.Heizung.aktTMP = 24.3
        Raum.Tür.OpenStatus = Status.geschlossen