GLOBAL h AS QWERTY

h.a = 3

PRINT h.a

TestSub()

SUB TestSub ()

  TYPE Zzz
    DIM x
    DIM y
    DIM z
    DIM p AS RECT
  END TYPE

  LOCAL cb AS Zzz

  ?  "----"
  cb.x = 1 : ?  cb.x
  cb.y = 2 : ?  cb.y
  cb.z = 3 : ?  cb.z
  ?  "----"

END SUB

TYPE QWERTY
  DIM a
  DIM b
  DIM c$
  DIM q AS RECT
END TYPE

Result:

 3
----
 1
 2
 3
----