ну вот так к примеру :
Type TTest
Field id1% = 0
Method Copy:TTest()
Local t:TTest = TTest.Create()
t.id1 = id1
Return t
End Method
Function Create:TTest()
Local t:TTest = New TTest
Return t
End Function
End Type
Global t1:TTest = TTest.Create()
t1.id1 = 1
Global t2:TTest = t1.Copy()
DebugLog "t1 id : "+t1.id1+" t2 id : "+t2.id1
t2.id1 = 2
DebugLog "t1 id : "+t1.id1+" t2 id : "+t2.id1
End
ps. у тебя не правильная функция создания типа, потому что она не создает ничего