aaa=CREATEOBJECT("form")
bbb=CREATEOBJECT("daa")

BINDEVENT(aaa,"unload", bbb,"handle")
BINDEVENT(aaa,"destroy", bbb,"handle")

aaa.release()

DEFINE CLASS daa as Line

	PROCEDURE handle() 
	
	MESSAGEBOX("DDD")
	
	ENDPROC
	

ENDDEFINE