Imports System
Imports System.Reflection
Imports Microsoft.VisualBasic
Class membertypesenum
Public Overloads Shared Function Main(ByVal args() As String) As Integer
Dim Mymembertypes As MemberTypes
Dim Mytype As Type = Type.GetType("System.Reflection.ReflectionTypeLoadException")
Dim Mymembersinfoarray As MemberInfo() = Mytype.GetMembers()
Dim Mymemberinfo As MemberInfo
For Each Mymemberinfo In Mymembersinfoarray
Mymembertypes = Mymemberinfo.MemberType
Console.WriteLine(Mymemberinfo.Name)
Console.WriteLine(Mytype)
Console.WriteLine(Mymembertypes.ToString())
Next Mymemberinfo
Return 0
End Function
End Class