Public Interface Räume
    ReadOnly Property TypName() As String
    ReadOnly Property Name() As Object
 
 
End Interface
 
Public Class Schlafzimmer
    Implements Räume
    Protected meinRaum As String
    Public Sub New(ByVal _raum As String)
        meinRaum = _raum
 
    End Sub
 
    Public ReadOnly Property TypName() As String Implements Räume.TypName
        Get
            Return "Schlafzimmer"
        End Get
    End Property
    Public ReadOnly Property Name() As Object Implements Räume.Name
        Get
            Return meinRaum
        End Get
    End Property
End Class
 
Public Class Haus
 
    Private meineRäume As New RaumCollection
    Public ReadOnly Property mRäume() As RaumCollection
        Get
            Return meineRäume
        End Get
    End Property
 
End Class

Public Class Program
    Public meinRaum As New Objekte
    Public meinHaus As New Haus
 
    Public Sub Init()
        'Hier den Raum mit "Leben" befüllen
        meinHaus.mRäume.Add(meinRaum, New Schlafzimmer("Schlafzimmer"))