use classes instead of structures ... but notice : classes want to be instantiated ...
Class Pieces
Public Name1 As String
Public Name2 As String
Public Name3 As String
Public Sub New()
End Sub
End Class
Class EachRoom
Public Name As String
Public Items As New List(Of Pieces)
Public Sub New()
For i As Integer = 0 To 3
Items.Add(New Pieces)
Next
End Sub
End Class
Class MyHouse
Public Name As String
Public Room As New List(Of EachRoom)
Public Sub New()
For i As Integer = 0 To 2
Room.Add(New EachRoom)
Next
End Sub
End Class
Public House As New MyHouse
Additional like written in the Reply :
Class MyHouse
Public Name As String
Public Room As New List(Of EachRoom)
Public Sub New()
For i As Integer = 0 To 2
Room.Add(New EachRoom)
Next
End Sub
Public Sub New(RoomCount as integer)
For i As Integer = 1 To RoomCount
Room.Add(New EachRoom)
Next
End Sub
End Class