PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl DO CASE CASE nKeyCode = 13 .or. nkeyCode = -9 && Enter or F10 THISFORM.cmdOK.click CASE nKeyCode = 27 && escape THISFORM.cmdCancel.click OTHERWISE DODEFAULT(nKeyCode, nShiftAltCtrl) ENDCASE ENDPROC