o = CREATEOBJECT("TestForm") o.show() DEFINE CLASS TestForm AS FORM caption = "Press any key..." height = 70 width = 290 autocenter = .T. WindowType = 1 KeyPreview = .T. ADD OBJECT cmdCancel AS cmdCancel PROCEDURE Init PUSH KEY CLEAR ENDPROC PROCEDURE Destroy POP KEY ENDPROC PROCEDURE KeyPress(nKeyCode, nShiftAltCtrl) WAIT WINDOW TIMEOUT 1 "Form.KeyPress()" + CHR(13)+; "nKeyCode = " + ALLTRIM(STR(nKeyCode)) + CHR(13) + ; "nShiftAltCtrl = " + ALLTRIM(STR(nShiftAltCtrl)) ENDPROC ENDDEFINE DEFINE CLASS cmdCancel as COMMANDBUTTON autosize = .T. caption = "Cancel" cancel = .T. height = 27 left = 220 top = 40 width = 58 PROCEDURE click thisform.release ENDPROC ENDDEFINE