' how to cancel the onclose event like VB
DECLARE SUB Form_Close(Action AS INTEGER,Sender as QForm)

CREATE Form AS QFORM
 Center
 OnClose = Form_Close
END CREATE

Form.ShowModal

SUB Form_Close
 IF MessageDlg("Do you wish to exit now?", 0, 1 OR 2, 0) = 7 THEN
  Action = 0
 END IF
END SUB