Type Trouble

I think it is something else, because the example seems to work:

Type foo
	Field f$
End Type

my_type.foo = New foo
my_type\f$ = "hello"

type_ID = Handle(my_type)

this_type.foo = Object.foo(type_ID)
Print this_type\f$

WaitKey()
End