'----------------------------------------------
    'загрузка событий меню
    OldMenuWindowProc = SetWindowLong( _
        hwnd, GWL_WNDPROC, _
        AddressOf NewMenuWindowProc)
    '----------------------------------------------

Public Function NewMenuWindowProc(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, _
  ByVal lParam As Long) As Long
  
Const WM_MENUSELECT = &H11F
Const WM_EXITMENULOOP = &H212
Const MF_BYPOSITION = &H400&

Dim menu_id As Long
Dim menu_caption As String
Dim menu_caption1 As String
Dim length As Long
    If msg = WM_MENUSELECT Then
        ' Get the menu ID.
        menu_id = (wParam And &HFFFF&)
        'menu_id = LowOrd(wParam)
        ' Get the menu caption.
        menu_caption = Space$( 1024 )
        length = GetMenuString(lParam, menu_id, menu_caption, _
            Len(menu_caption),  0 )
        menu_caption = Left$(menu_caption, length)
        If InStr(menu_caption, "ГЛЮК_TOP_MENU") >  0  Then 'View(main)-поправка
            menu_caption1 = Space$( 1024 )
            length = GetMenuString(lParam, menu_id, menu_caption1, _
                Len(menu_caption1), MF_BYPOSITION)
            menu_caption1 = Left$(menu_caption1, length)
            If (InStr(menu_caption1, "&View") >  0 ) And (InStr(menu_caption1, "F3") =  0 ) Then
                menu_caption = ""
            End If
        ElseIf InStr(menu_caption, ГЛЮК_ЕЩЕ") > 0 Then 'Help(main)-поправка
        '...
        End If
        
        Form1.StatusBar1.Panels(1).Text = GetHelpMenuStr(menu_caption)
    ElseIf msg = WM_EXITMENULOOP Then
        Form1.StatusBar1.Panels(1).Text = "Bla-bla-bla"
    End If

    ' Invoke the old menu proc.
    NewMenuWindowProc = CallWindowProc( _
        OldMenuWindowProc, hwnd, msg, wParam, _
        lParam)
End Function

Private Sub Form_Unload(Cancel As Integer)
    'отмена событий меню
    SetWindowLong hwnd, GWL_WNDPROC, _
        OldMenuWindowProc
    'отмена событий Toolbar
    SetWindowLong Toolbar1.hwnd, GWL_WNDPROC, _
        OldToolBarWindowProc
        MsgBox "ok"
    End
End Sub

Private Sub Form_Load()
...
    '----------------------------------------------
    'загрузка событий меню
    OldMenuWindowProc = SetWindowLong( _
        hwnd, GWL_WNDPROC, _
        AddressOf NewMenuWindowProc)
    'загрузка событий Toolbar
    OldToolBarWindowProc = SetWindowLong(Toolbar1.hwnd, GWL_WNDPROC, _
        AddressOf NewToolBarWindowProc)
    '----------------------------------------------
..
end sub

Private Const WM_MENUSELECT = &H11F
Private Const WM_EXITMENULOOP = &H212
Private Const MF_BYPOSITION = &H400&
Private Const MF_POPUP = &H10&
Private Const MF_HILITE = &H80&
Private Const MF_SYSMENU = &H2000&

Private Const SC_RESTORE = &HF120&
Private Const SC_MOVE = &HF010&
Private Const SC_SIZE = &HF000&
Private Const SC_MINIMIZE = &HF020&
Private Const SC_MAXIMIZE = &HF030&
Private Const SC_CLOSE = &HF060&

...
  ' menu
  Dim menu_id As Long
  Dim menu_caption As String
  Dim length As Long
  Dim LW_wParam As Long 'LOWORD(wParam)
  Dim HW_wParam As Long 'HIWORD(wParam)


    Case WM_MENUSELECT 'menu
      LW_wParam = LOWORD(wParam)
      HW_wParam = HIWORD(wParam)
      Select Case LW_wParam
        Case SC_RESTORE 'SYSMENU
          menu_caption = "SC_RESTORE"
        Case SC_MOVE 'SYSMENU
          menu_caption = "SC_MOVE"
        Case SC_SIZE 'SYSMENU
          menu_caption = "SC_SIZE"
        Case SC_MINIMIZE 'SYSMENU
          menu_caption = "SC_MINIMIZE"
        Case SC_MAXIMIZE 'SYSMENU
          menu_caption = "SC_MAXIMIZE"
        Case SC_CLOSE 'SYSMENU
          menu_caption = "SC_CLOSE"
        Case Else
          If lParam = GetMenu(Form1.hWnd) Then
            menu_caption = "" 'не отображаем примечания для меню верхнего уровня
          ElseIf HW_wParam And MF_SYSMENU Then
            menu_caption = "" 'не отображаем примечания для системного меню верхнего уровня
          Else
            If HW_wParam And MF_POPUP Then
              'selected item opens a drop-down menu
              'wParam - contains the index of the drop-down menu or submenu in the main menu
              'lParam - contains the handle to the main (clicked) menu
              menu_id = GetSubMenu(lParam, LW_wParam)
            Else
              'command item
              'wParam - contains the identifier of the menu item
              'lParam - handle to the menu that was clicked
              menu_id = LW_wParam
             End If
            
            ' Get the menu caption.
            menu_caption = Space$(1024)
            length = GetMenuString(lParam, menu_id, menu_caption, _
             Len(menu_caption), 0)
            menu_caption = Left$(menu_caption, length)
          End If
      End Select
      Form1.StatusBar1.Panels(1).Text = GetHelpMenuStr(menu_caption)
    Case WM_EXITMENULOOP 'menu
      Form1.StatusBar1.Panels(1).Text = "My proga description"

Private Function GetHelpMenuStr(str As String) As String
  Dim temp As String
  If (str = "SC_RESTORE") Then 'SYSMENU
    temp = "Restore the window to normal size"
  ElseIf (str = "SC_MOVE") Then 'SYSMENU
    temp = "Change the window position"
  ElseIf (str = "SC_SIZE") Then 'SYSMENU
    temp = "Change the window size"
  ElseIf (str = "SC_MINIMIZE") Then 'SYSMENU
    temp = "Reduce the window to an icon"
  ElseIf (str = "SC_MAXIMIZE") Then 'SYSMENU
    temp = "Enlarge the window to full size"
  ElseIf (str = "SC_CLOSE") Then 'SYSMENU
    temp = "Close the active window and prompts to save the documents"
  '==================================
...
  ElseIf InStr(str, "E&xit") > 0 Then
    temp = "Quit the application"
  '==================================

  Dim temp As String
  If (str = "SC_RESTORE") Then 'SYSMENU
    temp = "Restore the window to normal size"
  ElseIf (str = "SC_MOVE") Then 'SYSMENU
    temp = "Change the window position"