>>ACTIVATE WINDOW debug >>PUBLIC loForm >>loForm = CREATEOBJECT('_Form') >>loForm.Show() >> >>DEFINE CLASS _form AS form >> >> top = 0 >> left = 0 >> height = 300 >> width = 300 >> >> ADD OBJECT cmdClose AS _commandbutton WITH ; >> top = 100, ; >> left = 100, ; >> height = 27, ; >> width = 120, ; >> caption = [Click Me to Test] >> >> PROCEDURE QueryUnload >> *!* some clean up code here >> IF NOT THIS._PreQueryUnloadHook() >> RETURN .f. >> ENDIF >> THIS.Release() >> ENDPROC >> PROCEDURE _PreQueryUnloadHook >> RETURN .t. >> ENDPROC >>ENDDEFINE >>DEFINE CLASS _commandbutton AS CommandButton >> >> PROCEDURE Click >> THIS.OnClick() >> ENDPROC >> PROCEDURE OnClick >> THISFORM.QueryUnload() >> ENDPROC >> >>ENDDEFINE