Private Function GetProp(ByVal o As Object) As String
        Dim msg As String = ""
        msg += o.ToString
        For Each descriptor As PropertyDescriptor In _
          TypeDescriptor.GetProperties(o)
            Dim name As String = descriptor.Name
            Try
                Dim value As Object = descriptor.GetValue(o)
                Console.WriteLine("{0}={1}", name, value)
 
                msg += name.ToString & "=" & value.ToString & vbCrLf
            Catch ex As Exception
                msg += name.ToString & ex.Message & vbCrLf
            End Try
        Next
        Return msg
    End Function