PropertyInfo.Attributes Property gets the attributes for this property.
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