*!* Begin Code Sample

PUBLIC x
x = CREAT([oForm1])
x.SHOW

DEFINE CLASS oForm1 AS FORM
AUTOCENTER = .T.
ADD OBJECT button1 AS BUTTON
button1.LEFT = 1000
ADD OBJECT label1 AS LABEL
label1.LEFT = 125
label1.TOP = 75
label1.CAPTION = [Hit the ESC key.]
ENDDEFINE

DEFINE CLASS BUTTON AS COMMANDBUTTON
CANCEL = .T.
PROC CLICK
RELEASE THISFORM
ENDPROC
ENDDEFINE

*!* End Code Sample

>The user can close the form with CTRL+F4 or clicking the upper right corner or object with "ThisForm.release()" code.
>How could I make that the "ESC" would have the same effect?
>
>Thank's, Zlatko.