Show the help-file?

Howdi..

I have put the path to the help-file in the "Project properties and if I press "F1" the HTML Help show's the help-file.

THE QUESTION:
How do I show the help-file from a menu. I tryed to use "SendKey ({F1})" and it works if the program is active but since I have a a icon in the tray icon bar where a menu is shown on right-click it's not sure that the program is active and I send the F1 key to something else.

Any ideá?

Private Sub OpenHelp(file As String)
Dim lngResult As Long
lngResult = ShellExecute(frm1.hwnd, "Open", file, "", "", vbNormalFocus)
End Sub

Invoke this as
Call OpenHelp(strhelp)

in mnuHelp_click()

Or you can use the Shell method.

Code:

---

Shell "hh.exe MyCHTM.chm", 1

---

When I used the Shell method, on some client machines, even though the task manager showed the Help file, i could not access it by any method and my application always had focus .

Any ideas why?

Sub or Function not defined is the only thing I get if I use sarun's example..

Is there anything missing in the code?

Where is the sub defined(in a module?)

Note that it is declared as Private

You must declare the API:

Code:

---

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, ByVal _
nShowCmd As Long) As Long


Private Sub OpenHelp(file As String)
Dim lngResult As Long
lngResult = ShellExecute(frm1.hwnd, "Open", file, "", "", vbNormalFocus)
End Sub

'Invoke this as
Call OpenHelp(strhelp)

---

Oops! Sorry I forgot to mention that.