Imports System
Imports Microsoft.VisualBasic
Namespace SystemType
    Public Class [MyClass]
        ' Declare MyTestClass as sealed.
        Public NotInheritable Class MyTestClass
        End Class 'MyTestClass
        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 IsSealed property of myTestClassInstance.
                myBool = myType.IsSealed
                Console.WriteLine(ControlChars.Cr + "Is {0} sealed? {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
{
    public class MyClass
    {
        // Declare MyTestClass as sealed.
        sealed public class MyTestClass
        {
        }
        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 IsSealed property of the myTestClassInstance.
                myBool = myType.IsSealed;
                Console.WriteLine("\nIs {0} sealed? {1}.", myType.FullName, myBool.ToString());
            }
            catch (Exception e)
            {
                Console.WriteLine("\nAn exception occurred: {0}",e.Message);
            }
        }
    }
}

using namespace System;

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

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

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

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

   }