Case WM_MySysTrayNotify 'уведомления Tray -вместо WM_MOUSEMOVE
      Dim lw_lparam
      lw_lparam = LOWORD(lParam)
      Select Case lw_lparam
        Case WM_HELP
           Debug.Print "WM_HELP" ' НЕ ЛОВИТСЯ
        Case WM_LBUTTONDBLCLK
           Debug.Print "WM_LBUTTONDBLCLK"

  Dim hwndMenu As Long
  'hwndMenu = GetSubMenu(GetMenu(Me.hwnd), 0)  ВАРИАНТ 1
  hwndMenu = GetMenu(Me.hwnd)ВАРИАНТ 2
  Debug.Print hwndMenu
  OldMenuWindowProc = SetWindowLong( _
   hwndMenu, 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
 
  Select Case Msg
    Case WM_HELP
      Debug.Print "WM_HELP"
    Case Else
      Debug.Print Msg
  End Select
    
  NewMenuWindowProc = CallWindowProc( _
   OldMenuWindowProc, hwnd, Msg, wParam, _
   lParam)
End Function