Using the code I gave you above:

 

Adding to the declarations:

   

    Public Declare Function HtmlHelp Lib "hhctrl.ocx" _
        Alias "HtmlHelpA" _
        (ByVal hwndCaller As Long, _
        ByVal pszFile As String, _
        ByVal uCommand As Long, _
        ByVal dwData As Long) _
        As Long

 

I change this line:

WinHelp App.hInstance, SetHelpStrings(intHelpFile), 1, lngContextID

 

to:

This code works with .hlp files, try it with the .chm files and see if it works. Not sure, but worth a shot.

 

'WINHELP DECLARATION
Public Declare Function WinHelp Lib "user32" Alias "WinHelpA" _
      (ByVal HWND As Long, ByVal lpHelpFile As String, _
      ByVal wCommand As Long, ByVal dwData As Long) As Long

 

Public Const HELP_CONTENTS = 3
Public Const HELP_FINDER = 11

 

'IN A MODULE

Public Sub ShowHelpContextID(ByVal intHelpFile As Integer, lngContextID As Long)

   
    ' Open the help file using the
    ' HELP_CONTEXT constant (1)
   

    WinHelp App.hInstance, SetHelpStrings(intHelpFile), 1, lngContextID

   
End Sub

 

Public Function SetHelpStrings(ByVal intSelHelpFile As Integer) As String

   
    ' Set the string variable to
    ' include the application path
   

    Select Case intSelHelpFile

       
        Case 1
            SetHelpStrings = App.Path & "\Res\Backup.hlp"
       
        Case 2
            ' Place other Help file paths in successive Case statements
            SetHelpStrings = App.Path & "\Res\Restore.hlp"
            
    End Select
 
End Function

 

 

Shell "rundll32.exe url.dll,FileProtocolHandler C:\WINDOWS\Help\access.chm", vbNormalFocus

 

change C:\WINDOWS\Help\access.chm to the path/filename you need.

 

A start to get the file up, I have code somewhere to specify but cannot look now, will check after lunch.