Imports System
Imports System.Reflection
Imports Microsoft.VisualBasic
Namespace MyNamespace
Public Class Example
Public ReadOnly Property Answer As Integer
Get
Return 42
End Get
End Property
Public Shared Sub Main()
Dim t As Type = GetType(MyNamespace.Example)
Dim pi As PropertyInfo = t.GetProperty("Answer")
Console.WriteLine(t.Name)
Console.WriteLine(pi.Name)
Console.WriteLine(pi.PropertyType)
End Sub
End Class
End Namespace