Public Class Haus
    Private räume As New Raum
    Public Property zimmer() As Raum
        Set(ByVal Value As Raum)
 
        End Set
        Get
            Return räume
        End Get
    End Property
End Class

        meinRaum.Geraete.Add("Ist", New Heizung("Schlafzimmer"))
        meinRaum.Geraete.Add("Soll", New Heizung("Schlafzimmer"))

 Public Schlafzimmer As New Raum
    Public EDV As New Raum
 
    Public haus As New Collection´
 
 
haus.Add(Schlafzimmer)
        haus.Add(EDV)
 
haus(EDV). ?