Значок в трее не реагирует на манипуляции мышью

Option Explicit
' Константы и структуры
'-------------------------------------------------
Private Const NOTIFYICON_VERSION = &H3
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_NULL = &H0
 
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const NIF_STATE = &H8
Private Const NIF_INFO = &H10
 
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIM_SETFOCUS = &H3
Private Const NIM_SETVERSION = &H4
Private Const NIM_VERSION = &H5
 
Private Const NIS_HIDDEN = &H1
Private Const NIS_SHAREDICON = &H2
 
   
Private Const WM_USER = &H400
Private Const NIN_BALLOONSHOW = (WM_USER + 2)
Private Const NIN_BALLOONHIDE = (WM_USER + 3)
Private Const NIN_BALLOONTIMEOUT = (WM_USER + 4)
Private Const NIN_BALLOONUSERCLICK = (WM_USER + 5)
 
'shell version / NOTIFIYICONDATA struct size constants
Private Const NOTIFYICONDATA_V1_SIZE As Long = 88  'pre-5.0 structure size
Private Const NOTIFYICONDATA_V2_SIZE As Long = 488 'pre-6.0 structure size
Private Const NOTIFYICONDATA_V3_SIZE As Long = 504 '6.0+ structure size
Private NOTIFYICONDATA_SIZE As Long
 
Private Type GUID
   Data1 As Long
   Data2 As Integer
   Data3 As Integer
   Data4(7) As Byte
End Type
 
Private Type NOTIFYICONDATA
  cbSize As Long
  hwnd As Long
  uID As Long
  uFlags As Long
  uCallbackMessage As Long
  hIcon As Long
  szTip As String * 128
  dwState As Long
  dwStateMask As Long
  szInfo As String * 256
  uTimeoutAndVersion As Long
  szInfoTitle As String * 64
  dwInfoFlags As Long
  guidItem As GUID
End Type
'-----------------------------------------------------
' Объявление API функций
'-----------------------------------------------------
Private Declare Function Shell_NotifyIcon Lib 'shell32.dll' _
   Alias 'Shell_NotifyIconA' _
  (ByVal dwMessage As Long, _
   lpData As NOTIFYICONDATA) As Long
 
Private Declare Function GetFileVersionInfoSize Lib 'version.dll' _
   Alias 'GetFileVersionInfoSizeA' _
  (ByVal lptstrFilename As String, _
   lpdwHandle As Long) As Long
 
Private Declare Function GetFileVersionInfo Lib 'version.dll' _
   Alias 'GetFileVersionInfoA' _
  (ByVal lptstrFilename As String, _
   ByVal dwHandle As Long, _
   ByVal dwLen As Long, _
   lpData As Any) As Long
   
Private Declare Function VerQueryValue Lib 'version.dll' _
   Alias 'VerQueryValueA' _
  (pBlock As Any, _
   ByVal lpSubBlock As String, _
   lpBuffer As Any, _
   nVerSize As Long) As Long
 
Private Declare Sub CopyMemory Lib 'kernel32' _
   Alias 'RtlMoveMemory' _
  (Destination As Any, _
   Source As Any, _
   ByVal Length As Long)
 
Private Declare Function SetForegroundWindow Lib 'user32' _
    (ByVal hwnd As Long) As Long
 
Private Declare Function PostMessage Lib 'user32' _
    Alias 'PostMessageA' (ByVal hwnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long
 
'---------------------------------------------------------------------
 
'переменные и структуры модуля
   Private NID              As NOTIFYICONDATA
   Private m_hWnd           As Long
   Private m_Icon           As Long
   Private m_ToolTipText    As String
   Public Enum TrayIcon_InfoIcon
        NIIF_NONE = &H0
        NIIF_INFO = &H1
        NIIF_WARNING = &H2
        NIIF_ERROR = &amp   fMenu
      
   'посылаем сообщение окну
      PostMessage m_hWnd, WM_NULL, 0, 0
 
End Sub
 
'Устанавливаем размер переменной NOTIFYICONDATA_SIZE
'в зависимости от версии оболочки
Private Sub SetShellVersion()
 
   Select Case True
      Case IsShellVersion(6)
         NOTIFYICONDATA_SIZE = NOTIFYICONDATA_V3_SIZE '6.0+ structure size
      
      Case IsShellVersion(5)
         NOTIFYICONDATA_SIZE = NOTIFYICONDATA_V2_SIZE 'pre-6.0 structure size
      
      Case Else
         NOTIFYICONDATA_SIZE = NOTIFYICONDATA_V1_SIZE 'pre-5.0 structure size
   End Select
 
End Sub
 
'Определяем версию оболочки Shell32.dll
Private Function IsShellVersion(ByVal version As Long) As Boolean
 
  'функция возращает Истину если версия оболочки
  '(shell32.dll) равна или больше запрашиваемой
   Dim nBufferSize As Long
   Dim nUnused As Long
   Dim lpBuffer As Long
   Dim nVerMajor As Integer
   Dim bBuffer() As Byte
   
   Const sDLLFile As String = 'shell32.dll'
   
   nBufferSize = GetFileVersionInfoSize(sDLLFile, nUnused)
   
   If nBufferSize > 0 Then
    
      ReDim bBuffer(nBufferSize - 1) As Byte
    
      Call GetFileVersionInfo(sDLLFile, 0&, nBufferSize, bBuffer(0))
    
      If VerQueryValue(bBuffer(0), ' ', lpBuffer, nUnused) = 1 Then
         
         CopyMemory nVerMajor, ByVal lpBuffer + 10, 2
        
         IsShellVersion = nVerMajor >= version
      
      End If
    
   End If
  
End Function

Dim WithEvents cTray As TrayIconAndBalloon
 
Private Sub cmdBalloon_Click()
cTray.DisplayBalloon txtBalloonTitle.Text, txtBalloonText.Text, NIIF_INFO ' + NIIF_NOSOUND
End Sub
 
'загрузка формы
Private Sub Form_Load()
 
   'запрещаем кнопки Удалить и Изменить, скрываем поле
      butModify.Enabled = False
      cmdBalloon.Enabled = False
      butDelete.Enabled = False
            
   'создаем инстанс объекта
      Set cTray = New TrayIconAndBalloon
      
End Sub
 
'выгрущка формы
Private Sub Form_Unload(Cancel As Integer)
 
   'убиваем объект
      Set cTray = Nothing
      
End Sub
 
'добавить иконку в трей
Private Sub butAdd_Click()
   
   'хендл окна
      cTray.hwnd = hwnd
   'иконка, что будет отображена в трее
      cTray.Icon = Icon
   'тултипс (всплывающая подсказка)
      cTray.ToolTipText = 'Просто иконка'
      
   'создаем иконку
      cTray.Add
   
   'разрешаем кнопки Удалить и Изменить, показываем поле, запрещаем кнопку Добавить
      butAdd.Enabled = False
      butModify.Enabled = True
      cmdBalloon.Enabled = True
      butDelete.Enabled = True
         
End Sub
 
'изменить иконку в трее
Private Sub butModify_Click()
 
   'меняем тултипс, можно поменять и Icon
      cTray.ToolTipText = edtToolTip.Text
      
   'меняем иконку
      cTray.Modify
      
End Sub
 
'удалить иконку из трея
Private Sub butDelete_Click()
 
   'удаляем иконку
      cTray.Delete
      
   'запрещаем кнопки Удалить и Изменить, скрываем поле, разрешаем кнопку Добавить
      butAdd.Enabled = True
      butModify.Enabled = False
      cmdBalloon.Enabled = False
      butDelete.Enabled = False
         
End Sub
 
'ловим ивенты на форме
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   'передаем данные в объект
      cTray.CallEvent X, Y
      
End Sub
 
'ивент срабатывает при действиях на иконке в трее
Private Sub cTray_OnIcon(MouseButton As Integer)
   'обладочная информация
      Debug.Print MouseButton
   
   'левый двойной клик
   '   If MouseButton = TRAYICON_MOUSE_LEFTDBLCLICK Then MsgBox 'LeftDoubleClick on TrayIcon'
   'отжатие правой кнопки мыши
      If MouseButton = TRAYICON_MOUSE_RIGHTUP Then cTray.CallPopupMenu Me, pmnuTray, 2, , , mnuHello
      
End Sub