type container_string

  as string var1
  declare function get() as string
  declare sub p()
end type 


sub container_string.p()
  print var1
end sub


function container_string.get() as string
  return var1
end function











dim as container_string c 

c.var1 = "Hallo"

print c.var1
sleep