Public Class ProductProperty
        Public Prop1 As New SubProps
        Public Prop2 As New SubProps
        Public Prop3 As New SubProps
        Class SubProps
            Public SubProp1 As String
            Public SubProp2 As String
            Public SubProp3 As Boolean
            Public SubProp4 As Boolean
            Public SubProp5 As Boolean
        End Class
    End Class
.
.
.
    Dim ProdProp As New ProductProperty
 
    ProdProp.Prop1.SubProp1="red"
    ProdProp.Prop1.SubProp2="blue"
    ProdProp.Prop1.SubProp3=False
    ProdProp.Prop1.SubProp4=True 
 
 
       For Each ProdField As System.Reflection.FieldInfo In ProdProp.GetType( _
         ).GetFields()
            Debug.WriteLine(ProdField.Name)
            For Each ProdField1 In ProdField.FieldType.GetFields()
                Debug.WriteLine("-- " & ProdField1.Name)
 
                'Hier würde ich gerne den Wert von Prodfield setzen oder lesen. 
            Next
       Next