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 >>