Imports System
Imports System.Reflection
Imports Microsoft.VisualBasic

Class Mymemberinfo
    Public Shared Function Main() As Integer
        Console.WriteLine("Reflection.MemberInfo")

        ' Get the Type and MemberInfo.
        Dim MyType As Type = Type.GetType("System.Empty")
        Dim Mymemberinfoarray As MemberInfo() = MyType.GetMembers()

        ' Get and display the DeclaringType method.
        Console.WriteLine("There are {0} members in {1}", Mymemberinfoarray.GetLength(0), MyType.FullName)

        Dim Mymemberinfo As MemberInfo
        For Each Mymemberinfo In Mymemberinfoarray
            Console.WriteLine(Mymemberinfo.Name & " declaring type - " & Mymemberinfo.DeclaringType.ToString())
        Next Mymemberinfo

        Return 0
    End Function
End Class

using System;
using System.Reflection;

class Mymemberinfo
{
    public static int Main()
    {
        Console.WriteLine ("\nReflection.MemberInfo");

        // Get the Type and MemberInfo.
        Type MyType = Type.GetType("System.Empty");
        MemberInfo[] Mymemberinfoarray = MyType.GetMembers();

        // Get and display the DeclaringType method.
        Console.Write("\nThere are {0} members in ",
            Mymemberinfoarray.GetLength(0));
        Console.Write("{0}.", MyType.FullName);

        foreach (MemberInfo Mymemberinfo in Mymemberinfoarray)
        {
            Console.Write("\n" + Mymemberinfo.Name
                + " declaring type - " +
                Mymemberinfo.DeclaringType);
        }

        return 0;
    }
}

using namespace System;
using namespace System::Reflection;
int main()
{
   Console::WriteLine( "\nReflection.MemberInfo" );

   // Get the Type and MemberInfo.
   Type^ MyType = Type::GetType( "System.Empty" );
   array<MemberInfo^>^Mymemberinfoarray = MyType->GetMembers();

   // Get and display the DeclaringType method.
   Console::Write( "\nThere are {0} members in ", Mymemberinfoarray->GetLength( 0 ) );
   Console::Write( "{0}.", MyType->FullName );
   System::Collections::IEnumerator^ enum0 = Mymemberinfoarray->GetEnumerator();
   while ( enum0->MoveNext() )
   {
      MemberInfo^ Mymemberinfo = safe_cast<MemberInfo^>(enum0->Current);
      Console::Write( "\n{0} declaring type - {1}", Mymemberinfo->Name, Mymemberinfo->DeclaringType );
   }
}