Dim itemHelp As New ToolStripMenuItem
        itemHelp.Text = "Help"
        itemHelp.DropDownItems.Add("Debug", My.Resources.Bug_16_n_p8, New _
          System.EventHandler(AddressOf mnuHelp_Debug))
        itemHelp.DropDownItems.Add("Statusline", _
        My.Resources.Checkbox_Unchecked_16_n_p8, New System.EventHandler( _
        AddressOf mnuStatusline_Click))
        itemHelp.DropDownItems.Add("-")
        itemHelp.DropDownItems.Add("Info", Nothing, New System.EventHandler( _
          AddressOf mnuHelp_Info))
        menu.Items.Add(itemHelp)
    End Sub
 
    Public Function getMenu() As MenuStrip
        Return menu
    End Function
 
    Private Sub mnuFile_ChangePassword()
        frmChangePW.ShowDialog()
    End Sub
 
    Private Sub mnuFile_Exit(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        endApp()
    End Sub
 
    Private Sub mnuHelp_Debug(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        If System.IO.File.Exists(My.Application.Info.DirectoryPath & _
        "\Dbgview.exe") = True Then
            System.Diagnostics.Process.Start(My.Application.Info.DirectoryPath _
            & "\Dbgview.exe")
        End If
    End Sub
 
    Private Sub mnuHelp_Info()
        'frmChangePW.ShowDialog()
    End Sub
 
    Public Event StatusLine(ByVal Statusline As Boolean)
    Dim myShowStatusLine As Boolean = False
    Private Sub mnuStatusline_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Dim myItem As ToolStripMenuItem = sender
        If myShowStatusLine = True Then
            myItem.Image = My.Resources.Checkbox_Unchecked_16_n_p8
            myShowStatusLine = False
        Else
            myItem.Image = My.Resources.Checkbox_Crossed_16_n_p8
            myShowStatusLine = True
        End If
        RaiseEvent StatusLine(myShowStatusLine)
    End Sub
 
    Public Event GoToChar(ByVal Letter As String)
    Private Sub mnuNavigation_Goto(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Dim myItem As ToolStripMenuItem = sender
        RaiseEvent GoToChar(myItem.Text)
    End Sub 
 
End Class