Namespace Rework Public Class Reden Public Code As String Public Label As String End Class Public Class Machine Public Label As String Public Code As String Public redenen As List(Of Reden) Public Sub New() redenen = New List(Of Reden) End Sub End Class Public Class ReworkOnderdeel Public Label As String Public Code As String Public Machines As List(Of Machine) Public Sub New() Machines = New List(Of Machine) End Sub End Class End Namespace