Imports System
Imports Microsoft.VisualBasic
Namespace SystemType
    ' Declare MyTestClass as public.
    Public Class MyTestClass
    End Class 'MyTestClass
    Public Class [MyClass]
        Public Shared Sub Main()
            Try
                Dim myBool As Boolean = False
                Dim myTestClassInstance As New MyTestClass()
                ' Get the type of myTestClassInstance.
                Dim myType As Type = myTestClassInstance.GetType()
                ' Get the IsPublic property of myTestClassInstance.
                myBool = myType.IsPublic
                Console.WriteLine(ControlChars.Cr + "Is {0 public? {1}.", myType.FullName, myBool.ToString())
            Catch e As Exception
                Console.WriteLine(ControlChars.Cr + "An exception occurred: {0}", e.Message.ToString())
            End Try
        End Sub 'Main
    End Class '[MyClass]
End Namespace 'SystemType 

using System;
namespace SystemType
{
    // Declare MyTestClass as public.
    public class MyTestClass
    {
    }
    public class MyClass
    {
        public static void Main(string []args)
        {
            try
            {
                bool myBool = false;
                MyTestClass myTestClassInstance = new MyTestClass();
                // Get the type of myTestClassInstance.
                Type   myType = myTestClassInstance.GetType();
                // Get the IsPublic property of the myTestClassInstance.
                myBool = myType.IsPublic;
                Console.WriteLine("\nIs {0} public? {1}.", myType.FullName, myBool.ToString ());
            }
            catch (Exception e)
            {
                Console.WriteLine("\nAn exception occurred: {0}", e.Message);
            }
        }
    }
}

using namespace System;

namespace SystemType
{

   // Declare MyTestClass as public.
   public ref class MyTestClass{};

   public ref class MyClass{};

}

int main()
{
   try
   {
      bool myBool = false;
      SystemType::MyTestClass^ myTestClassInstance = gcnew SystemType::MyTestClass;

      // Get the type of myTestClassInstance.
      Type^ myType = myTestClassInstance->GetType();

      // Get the IsPublic property of the myTestClassInstance.
      myBool = myType->IsPublic;
      Console::WriteLine( "\nIs {0} public? {1}.", myType->FullName, myBool.ToString() );
   }
   catch ( Exception^ e ) 
   {
      Console::WriteLine( "\nAn exception occurred: {0}", e->Message );
   }

}