Подскажите пожалуйста как и где обработать событие unload формы.
Когда нажимаешь на крестик формы то программа не закрывается полностью и застревает на READ EVENTS.

frm = CREATEOBJECT('Form')
frm.maxbutton = .F.
frm.minbutton = .F.
frm.caption='InputBox'
frm.top=150
frm.left=150
frm.height=150
frm.width=320
frm.AddObject('knopka','btn')
frm.knopka.Visible =.T.
frm.addObject('text1', 'txt')
frm.text1.Visible =.T.
frm.text1.setfocus
frm.SHOW
READ EVENTS

DEFINE CLASS txt AS textbox
Left = 10
Top = 50
Height = 25
Width = 300
ENDDEFINE

DEFINE CLASS btn AS COMMANDBUTTON
Caption = 'EXIT'
Left = 120
Top = 100
Height = 30
Width = 70
PROCEDURE Click
CLEAR EVENTS
ENDDEFINE

Спасибо!!!!!