Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objtest As Object
        objtest = grdCustomer.SelectedObject
        'objtest = grdTest.SelectedObject

        Dim stringOutput As String = ""
        Dim t As Type = objtest.GetType()
        Dim properties As PropertyInfo() = t.GetProperties()
        For Each p As PropertyInfo In properties
            stringOutput += ControlChars.CrLf & "Property Name: " & p.Name

            Dim attrib As Attribute() = Attribute.GetCustomAttributes([p])

            Dim strValue As String = ""
            For Each a As Attribute In attrib

                strValue = ""
                Select Case a.ToString
                    Case "System.ComponentModel.BrowsableAttribute"
                        strValue = CStr(CType(a, BrowsableAttribute).Browsable)

                    Case "System.ComponentModel.DisplayNameAttribute"
                        strValue = CStr(CType(a, DisplayNameAttribute).DisplayName)

                    Case Else

                End Select

                If strValue <> "" Then
                    stringOutput += ControlChars.CrLf & "    " & a.ToString & " " & strValue & ControlChars.CrLf
                End If

            Next
        Next

        Clipboard.Clear()
        Clipboard.SetText(stringOutput)

    End Sub