Public o1,o2
o1 = CreateObject("tlform")
o1.Show()
o1.Release()
Release o1
o2.Caption ="still alive"
Define Class tlform as form
showwindow = 2
Procedure init()
o2= CreateObject("intlform")
o2.show()
Endproc
EndDefine
Define Class intlform as form
showwindow = 1
EndDefine