>LPARAMETERS nKeyCode, nShiftAltCtrl >WITH ThisForm > DO CASE > CASE nKeyCode = 1 && Home Key was pressed. > ThisForm.cmdTop.Click() && Go to first record in Indexed table. > CASE nKeyCode = 18 && Page Up key was pressed. > ThisForm.cmdPrevious.Click() > CASE nKeyCode = 3 && Page Down key was pressed. > ThisForm.cmdNext.Click() > CASE nKeyCode = 6 && End key was pressed. > ThisForm.cmdBottom.Click() > CASE nKeyCode = 27 && User hit Escape key > ThisForm.cmdExit.Click() && Don't worry. If anything has changed, > && user is offered a chance to save the > && updates. > CASE nKeyCode = -9 && Function Key F10 was pressed. > .cmdSave.Click() > ENDCASE >ENDWITH >Cecil,