This has worked well for us.
In your startup prg put: on key lable F10 keyboard '{F9}'
This Must be global.

Then in keypress:
do case
case nKeyCode = -8 && F10 mapped to F9
case ...
endcase

>Hi ! can any one tell me how to set function key in command button ?
>
>the coding below will works if I set sysmenu off,
>but I need to show my menu on top
>so what should I do ?
>
>
>thisform.keypreview=.t.
>
>thisform.keypress
>do case
>case nkeycode=-9 && F10
> thisform.cmdSave.click
>endcase