Private Sub CommandBallon_Click()
  Dim nid As NOTIFYICONDATA
  With nid 'вывов уведомления в трей
    .cbSize = Len(nid) 'Size of structure
    .hwnd = Me.hwnd 'Handle to parent window
    .uID = vbNull 'Id of the icon
    .uFlags = NIF_INFO 'Options: show balloon
    .dwInfoFlags = NIIF_INFO
    .uTimeoutAndVersion = 1000 'Timeout when the balloon dissapear
    .szInfo = "Message small font" & Chr(0) 'Message
    .szInfoTitle = "Title large font" & Chr(0) 'Title
  End With
  Shell_NotifyIcon NIM_MODIFY, nid 'Show balloon
End Sub

        NIN_BALLOONUSERCLICK

.uTimeoutAndVersion = 1000 'Timeout when the balloon dissapear

Private Sub CommandBallonType1_Click()
  Dim nid As NOTIFYICONDATA
  With nid 'вывов уведомления в трей
...
    .szInfo = "Это сообщение ТИПА #1" & Chr(0) 'Message
    .szInfoTitle = "TYPE#1" & Chr(0) 'Title

        Case NIN_BALLOONUSERCLICK
           msgbox "Это TYPE#1"

Private Sub CommandBallonType2_Click()
  Dim nid As NOTIFYICONDATA
  With nid 'вывов уведомления в трей
...
    .szInfo = "Это сообщение ТИПА #2" & Chr(0) 'Message
    .szInfoTitle = "TYPE#2" & Chr(0) 'Title

        Case NIN_BALLOONUSERCLICK
           msgbox "Это TYPE#2"

   Case WM_MySysTrayNotify 'уведомления Tray -вместо WM_MOUSEMOVE
      Dim lw_lparam
      lw_lparam = LOWORD(lParam)
      Select Case lw_lparam
...
         Case NIN_BALLOONUSERCLICK
          Debug.Print "NIN_BALLOONUSERCLICK"
          Debug.Print HIWORD(lParam)
          Debug.Print wParam
          Form1.Text1.Text = Form1.Text1.Text & vbCrLf & "NIN_BALLOONUSERCLICK" 'debug

NIN_BALLOONUSERCLICK
 0 
 1 

Private Const WM_USER = &H400
Public Const NIN_BALLOONSHOW = (WM_USER + &H2) 'Balloon Tips ??
Public Const NIN_BALLOONHIDE = (WM_USER + &H3) 'Balloon Tips ??
Public Const NIN_BALLOONTIMEOUT = (WM_USER + &H4) 'Balloon Tips ? TimeOut ???,??????/????
Public Const NIN_BALLOONUSERCLICK = (WM_USER + &H5) 'Balloon Tips ???

NIN_BALLOONUSERCLICK
 0 'HIWORD(lParam)
 1

NIN_BALLOONUSERCLICK
 1  'HIWORD(lParam)
 0

       Case NIN_BALLOONUSERCLICK 'юзер щелкнул по сообщению
        Case NIN_BALLOONTIMEOUT 'юзер нажал на крестик либо самозакрылось по таймауту.

Public Type NOTIFYICONDATA
...
  guidItem As GUID
  hBalloonIcon As Long
End Type

Public Type NOTIFYICONDATA
...
  guidItem As GUID
  'hBalloonIcon As Long
End Type

Public Const NOTIFYICONDATA_V3_SIZE As Long = 504 '6.0+ structure size
 With nid
    .cbSize = IIf(IsWinVista, Len(nid), NOTIFYICONDATA_V3_SIZE)

Private Type GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(0 To 7) As Byte
End Type

'user defined type required by Shell_NotifyIcon API call
Public 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
  hBalloonIcon As Long
End Type

  hBalloonIcon As Long
End Type

  lngIconTime32 = LoadImage(App.hInstance, MAKEINTRESOURCE(303), IMAGE_ICON, _
   GetSystemMetrics(SM_CXICON), GetSystemMetrics(SM_CYICON), LR_DEFAULTCOLOR)

  .dwInfoFlags = NIIF_USER Or NIIF_LARGE_ICON

  .hBalloonIcon = lngIconTime32 

Public Const NIIF_LARGE_ICON = &H20

Private Sub CommandBallon3_Click()
  Dim nid As NOTIFYICONDATA
  With nid 'вывов уведомления в трей
    .cbSize = IIf(IsWinVista, Len(nid), NOTIFYICONDATA_V3_SIZE)
    .hwnd = Me.hwnd 'Handle to parent window
    .uID = vbNull  'Id of the icon
    .uFlags = NIF_INFO 'Options: show balloon
    .dwInfoFlags = IIf(IsWinVista, NIIF_USER Or NIIF_LARGE_ICON, NIIF_INFO)
    .uTimeoutAndVersion = 10000 'Timeout when the balloon dissapear
    .szInfo = "Message small font" & Chr(0) 'Message
    .szInfoTitle = "Title large font" & Chr(0) 'Title
    If IsWinVista Then .hBalloonIcon = lngIconTime32
  End With
  Shell_NotifyIcon NIM_MODIFY, nid 'Show balloon
End Sub