[...]
Include "Types.bmx"
Print TypeA.SubTypeB.Blavariable
[...]

Type TypeA
   Global SubTypeB:TypeA_SubTypeB
End Type

Type TypeA_SubTypeB
   Global Blavariable:Int = 1234
End Type

Type TBla
   Global hallo:Int = 4
EndType
Global bla:TBla = New TBla
Print bla.hallo

SuperStrict

Framework BRL.Blitz

Type TTestA
   Global Value : Int = 1234
End Type

Type TTestB
   Global TestA : TTestA
End Type

WriteStdout(TTestB.TestA.Value + "~n")
End

Type TTestA
   Field X : Int
   Field Y : Int

   Function Create:TTestA(X:Int, Y:Int)
      Local TestA:TTestA
      
      TestA = New TTestA
      TestA.X = X
      TestA.Y = Y
      
      Return TestA
   End Function
End Type

Type TTestB Extends TTestA
   Field Z : Int
   
   Function Create:TTestB(X:Int, Y:Int, Z:Int)
      Local TestB:TTestB
      
      TestB = New TTestB
      TestB.X = X
      TestB.Y = Y
      TestB.Z = Z
      
      Return TestB
   End Function
End Type

    class TestA
    {
        public int X;
        public int Y;

        public static TestA Create(int X, int Y)
        {
            TestA test;

            test = new TestA();
            test.X = X;
            test.Y = Y;

            return test;
        }
    }

    class TestB : TestA
    {
        public int Z;

        public static TestB Create(int X, int Y, int Z)
        {
            TestB test;

            test = new TestB();
            test.X = X;
            test.Y = Y;
            test.Z = Z;

            return test;
        }
    }