Hi,
I want the user when press the ESC key to quit the application.
but the following code in the Keypress event of the form not work.

It have error at the line of QUIT statement.

LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 27
	eMessageTitle = 'Quit'
	eMessageText = "Are you want to quit ?"
	nDialogType = 4 + 16 + 256
                *  4 = Yes and No buttons
                *  16 = Stop sign icon
                *  256 = Second button is default

	IF MESSAGEBOX(eMessageText, nDialogType, eMessageTitle) = 6
                     QUIT
	ENDIF	
ENDIF 	
/PRE>

Please advise.
Derek