Dim t As Type
        t = o.GetType
        For Each f As Reflection.FieldInfo In t.GetFields( _
          Reflection.BindingFlags.Public Or Reflection.BindingFlags.Instance)
 
            Dim val As Object = f.GetValue(o, Nothing)
 
            If val Is Nothing Then
                Debug.WriteLine(f.Name & " = Nothing")
            Else
                Debug.WriteLine(f.Name & " = " & val.ToString())
            End If
 
        Next