FoxPro/Visual FoxPro - LLAMAR AYUDA CON TECLA F1

HICE UNA AYUDA EN HELP WORKSHOP HTML.

CUANDO LA LLAMO DESDE LA VENTANA DE COMANDOS FUNCIONA BIEN Y ME ABRE MI AYUDA NORMAL.
SET HELP ON
SET HELP TO "c:hardw_inventayudaayuda.chm"
HELP

PERO CUANDO LO DESEO LLAMAR PRECIONANDO LA TECLA F1 DESDE UN FORM PONGO ESTO Y NO FUNCIONA:
IF nKeyCode = 28
SET HELP ON
SET HELP TO "c:hardw_inventayudaayuda.chm"
HELP
ENDIF
SOLAMENTE ME ABRE LA AYUDA DE VFP9.

CUANDO PONGO ESTO EN UN BOTON DE COMANDO SI ME ABRE LA AYUDA QUE QUIERO.
SET HELP ON
SET HELP TO "c:hardw_inventayudaayuda.chm"
HELP

COMO PUEDO EVITAR ESTO?

SALUDES DESDE YA.

debes escribir esto:

declare long ShellExecute in "shell32.dll" ;
long hwnd, ;
string lpszOp, ;
string lpszFile, ;
string lpszParams, ;
string lpszDir, ;
long nShowCmd

declare long GetDesktopWindow in "win32api"
declare long GetForegroundWindow in "win32api"

declare integer HtmlHelp in hhctrl.ocx ;
long hwndCaller, ;
string pszFile, ;
long uCommand, ;
long dwData

local hDCScreen

Main = GetForegroundWindow()
gcHomeDir="C:CARPETARAIZ"

p_pszFile=(gcHomeDir)+"MiAyuda.chm"

mHelpW = HtmlHelp(hDCScreen, p_pszFile, 0, 0)

y listo te funciona.....suerte