Menu tracking с помощью клавиатуры

'____________________________________________________________________
'|
'|
'|
'|___________________________________________________________________
Option Explicit
 
'============= Tray Icon Constants and Declarations ================================
Private Type NOTIFYICONDATA
    cbSize As Long ' Size of this type.
    hWnd As Long   ' Handle to the window that will receive notification messages associated with an icon in the taskbar status area.
    uId As Long    ' Application-defined identifier of the taskbar icon.
    uFlags As Long ' Array of flags that indicate which of the other members contain valid data.
    ucallbackMessage As Long ' Application-defined message identifier. The system uses this identifier for notification messages that it sends to the window identified in hWnd. These notifications are sent when a mouse event occurs in the bounding rectangle of the icon.
    hIcon As Long  ' Handle to the icon to add, modify, or delete.
    szTip As String * 64 ' Tooltip text to display for the icon.
End Type
 
Private Const NIM_ADD = &H0     ' Adds an icon to the status area.
Private Const NIM_MODIFY = &H1  ' Modifies an icon in the status area.
Private Const NIM_DELETE = &H2  ' Deletes an icon from the status area.
 
' uFlags (the member in the NOTIFYICONDATA Type),
' can be a combination of the following:
Private Const NIF_MESSAGE = &H1 ' The uCallbackMessage member is valid.
Private Const NIF_ICON = &H2    ' The hIcon member is valid.
Private Const NIF_TIP = &H4     ' The szTip member is valid.
 
Public Enum WINMSG
    WM_LBUTTONDOWN = &H201& ' Left mouse button down
    WM_LBUTTONUP = &H202&
    WM_LBUTTONDBLCLK = &H203&
    
    WM_RBUTTONDOWN = &H204&
    WM_RBUTTONUP = &H205& ' Right mouse button up.
    WM_RBUTTONDBLCLK = &H206&
    
    WM_MBUTTONDOWN = &H207&
    WM_MBUTTONUP = &H208&
    WM_MBUTTONDBLCLK = &H209&
    
    WM_COMMAND = &H111&
    WM_SHOWWINDOW = &H18&
End Enum
      
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
 
'============= Window Constants and Declarations ================================
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" ( _
     ByVal hWnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long
 
Private Declare Function SendDlgItemMessage Lib "user32.dll" Alias "SendDlgItemMessageA" ( _
     ByVal hDlg As Long, _
     ByVal nIDDlgItem As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long
 
'============= Public notification events ========================================
Public Event Notify(wParam As Long, lParam As Long)
 
'============= Private data members ==============================================
Private m_MenuControl As Long
Private m_Menu As clsMenu
'Private m_MenuItemsCount As Long
 
Private m_DisplayIcon As IPictureDisp
Private m_DisplayText As String
Private m_IconVisible As Boolean
 
Private m_NotifyControlID As Long
Private m_NotifyData As NOTIFYICONDATA

Private Sub ucTrayIcon_Notify(wParam As Long, lParam As Long)
  Select Case (wParam)
  '...........
  '...........
  Case WM_LBUTTONDBLCLK:
    DoEvents
    DoCommand MIE_OPEN
    ' из следующих четырёх вызовов надо опытным путём оставить 1-2:
    SetForegroundWindow Form1.hWnd
    BringWindowToTop Form1.hWnd
    SetActiveWindow Form1.hWnd
    PutFocus Form1.Hwnd
  End Select
End Sub