FoxPro/Visual FoxPro - Abrir Form con T. de Funcion

Hola... a todos..me da mucho gusto saludarles...

Deseo incluir en mi aplicacion las opciones de abrir los formularios oprimiendo las teclas de funcion.. ejemplo F4 que se abra el form "compras" oprimir la Tecla F5 Abrir el form "Ventas"...

Ahorita dichas opciones forman parte de la "Barra de menu" en la opcion de:
Procesos-> Compras y Procesos-> Ventas

Ademas estan incluidas en ToolBar así...

ADD OBJECT cmdCompras AS CommandButton WITH ;
TOP = 14, HEIGHT = 40, WITH = 45,;
HEIGHT = 40, WIDTH = 50,;
CAPTION = "" , PICTURE = sys(5)+Sys(2003)+"iconsCarrito.ico",;
TOOLTIPTEXT = "Realiza Compras de Contado"

ADD OBJECT cmdVentas AS CommandButton WITH ;
TOP = 14, HEIGHT = 40, WITH = 45,;
HEIGHT = 40, WIDTH = 50,;
CAPTION = "" , PICTURE = sys(5)+Sys(2003)+"iconsdinero.ico",;
TOOLTIPTEXT = "Realiza Ventas al publico en General"

***--- Procedures llamados por los objetos anteriores....-------

PROCEDURE cmdCompras.Click
do form FCompras
ENDPROC

PROCEDURE cmdVentas.Click
do form FVentas
ENDPROC

el usuario que usa el sistema ya no quiere usar tanto el mouse... solo oprimir 1 o 2 teclas para realizar compras y ventas.... je je... je... je.... que flojos verdad...?

Quiero incluir las opciones F4 Para Compras y F5 para ventas...

Espero su ayuda amigos...

Mi sugerencia es usar el comando
ON KEY LABEL

ejemplo
ON KEY LABEL F4 DO FORM FCompras
ON KEY LABEL F5 DO FORM FVentas

Espero sirva.
Saludos

en el formulario principal
en la propiedad .Keypreview=.T.

en la .KeyPress ponga un

Do Case
case nKeyCode=14 (no me acuerdo el codigo ascii de F4)
do form hacercompra
case nKeyCode=15
do form hacerventa
endcase