Imports System
Imports System.Reflection
Imports Microsoft.VisualBasic
Public Class Myproperty
Private myCaption As String = "Default caption"
Public Property Caption() As String
Get
Return myCaption
End Get
Set(ByVal Value As String)
If myCaption <> value Then
myCaption = value
End If
End Set
End Property
End Class 'Myproperty
Class Mypropertyinfo
Public Shared Function Main() As Integer
Dim Myproperty As New Myproperty()
Console.Write(Myproperty.Caption)
Dim MyType As Type = Type.GetType("Myproperty")
Dim Mypropertyinfo As PropertyInfo = MyType.GetProperty("Caption")
Dim Myattributes As PropertyAttributes = Mypropertyinfo.Attributes
Console.Write(Myattributes.ToString())
Return 0
End Function
End Class