ON KEY LABEL F1 DO Help_Program *** Help_Program *** local lcFile lcFile = fullpath("myhelp.chm") DECLARE INTEGER ShellExecute IN "Shell32.dll" ; INTEGER hwnd, ; STRING lpVerb, ; STRING lpFile, ; STRING lpParameters, ; STRING lpDirectory, ; LONG nShowCmd =Shellexecute(0,"Open",lcFile,"","",1) release DLLs