Namespace TypeInfoTest


Sub TestMain()
	Dim str As String

	Dim memberInfos = str.GetType().GetMembers()
	UnitTest( "TypeInfoTest(MemberInfo) ... ", True )
	Foreach memberInfo In memberInfos
		UnitTest( Ex"\t" + memberInfo.Name + " As " + memberInfo.MemberType.FullName, True )
	Next

End Sub


End Namespace

TypeInfoTest.TestMain()