Public Class HHctrlapi

    Dim DummyControl As New Control()
    Dim MyHelpProvider As New HelpProvider()

    Const SW_MAXIMIZE As Integer = 3
    Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Int32, ByVal ByValnCmdShow As Int32) As Int32


    Public Sub New()
        MyHelpProvider.HelpNamespace = Application.StartupPath + "\EDOKA-Hilfe.chm"
    End Sub

    Public Function ShowHelpTopic()
        Help.ShowHelp(DummyControl, MyHelpProvider.HelpNamespace)
    End Function

    Public Function ShowHelpToc(ByVal context As String)
        Help.ShowHelp(DummyControl, MyHelpProvider.HelpNamespace, context + ".htm")
    End Function

    Public Function ShowHelpIndex()
        Help.ShowHelpIndex(DummyControl, MyHelpProvider.HelpNamespace)
    End Function


    Public Function ShowSearch()
        Help.ShowHelp(DummyControl, MyHelpProvider.HelpNamespace, HelpNavigator.Find, "")
    End Function

    'm_pszHelpFilePath = Application.StartupPath + "\benudok.chm"
    'Dim searchit As HH_FTS_QUERY
    'searchit.cbStruct = Len(searchit)
    'searchit.fUniCodeStrings = 0&
    'searchit.pszSearchQuery = ""
    'searchit.iProximity = 0&
    'searchit.fStemmedSearch = 0&
    'searchit.fTitleOnly = 0&
    'searchit.fExecute = 0&
    'searchit.pszWindow = ""
    'HTMLHelp_Search(0&, m_pszHelpFilePath, HH_DISPLAY_SEARCH, searchit)


    'Public Const HH_DISPLAY_TOPIC As Short = &H0    ' select last opened tab, [display a specified topic]
    'Public Const HH_DISPLAY_TOC As Short = &H1      ' select contents tab, [display a specified topic]
    'Public Const HH_DISPLAY_INDEX As Short = &H2    ' select index tab and searches for a keyword
    'Public Const HH_DISPLAY_SEARCH As Short = &H3   ' select search tab and perform a search
    'Public Const HH_HELP_CONTEXT As Short = &HF     ' display mapped numeric value in dwData


    'Private Const HH_FTS_DEFAULT_PROXIMITY = (-1)
    'Public Structure HH_FTS_QUERY
    '    Public cbStruct As Integer ' Sizeof structure in bytes.
    '    Public fUniCodeStrings As Boolean ' TRUE if all strings areunicode.
    '    Public pszSearchQuery As String ' String containing the search query.
    '    Public iProximity As Long ' Word proximity.
    '    Public fStemmedSearch As Boolean ' TRUE for StemmedSearch only.
    '    Public fTitleOnly As Boolean ' TRUE for Title search only.
    '    Public fExecute As Boolean ' TRUE to initiate the search.
    '    Public pszWindow As String ' Window to display in
    'End Structure

    'Private m_pszHelpFilePath As String

    '<System.Runtime.InteropServices.DllImport("hhctrl.ocx", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    'Public Shared Function HtmlHelp(ByVal hwndCaller As System.Runtime.InteropServices.HandleRef, <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPTStr)> ByVal pszFile As String, ByVal uCommand As Int32, ByVal dwData As Int32) As Int32

    'End Function

    'Public Declare Function HTMLHelp_BaseCall Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hWnd As IntPtr, ByVal lpHelpFile As String, ByVal uCommand As Int32, ByVal dwData As Int32) As Int32

    'Public Declare Function HTMLHelp_Search Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hWnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByRef dwData As HH_FTS_QUERY) As Int32

    '        HTMLHelp_BaseCall(IntPtr.Zero, Application.StartupPath + "\benudok.chm", HH_DISPLAY_TOPIC, 0)


    '        HTMLHelp_BaseCall(IntPtr.Zero, Application.StartupPath + "\benudok.chm", HH_DISPLAY_INDEX, 0)




End Class