Private Sub ListProperties(ByVal o As Object)
        For Each p As System.Reflection.PropertyInfo In o.GetType( _
          ).GetProperties()
            Dim val As Object = p.GetValue(o, Nothing)
            If val Is Nothing Then
                Debug.WriteLine(p.Name & " = Nothing")
            Else
                Debug.WriteLine(p.Name & " = " & val.ToString())
            End If
        Next
    End Sub

________
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