Dim pis() As Reflection.PropertyInfo = x.GetType().GetProperties()
        For i As Integer = 0 To pis.Length - 1
            Dim pi As Reflection.PropertyInfo = pis(i)
            Dim val As Object = pi.GetValue(Me, Nothing)
            If val IsNot Nothing Then
                Debug.WriteLine("Name: " & pi.Name & " Value: " & val.ToString( _
                  ))
            Else
                Debug.WriteLine("Name: " & pi.Name & " Value: Null")
            End If
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist