TT.Style = TTBalloon
      TT.Title = "Large font text"
      TT.TipText = "Small font text"
      If sys_WinVista Then 'vista,win7,8
        TT.Icon = lngIcon32
      Else
        TT.Icon = lngIcon16
      End If
      TT.Create ListView.hwnd

Private Sub Command1_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
    .uTimeout = 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

Public Const NOTIFYICON_VERSION_4 As Long = &H4 'Use Windows Vista behavior
Public Const NIM_SETVERSION = &H4
Private Const WM_USER = &H400
Public Const WM_MySysTrayNotify = WM_USER + &H1

Private Sub Form_Load()

...
  Dim nid As NOTIFYICONDATA
...
  With nid   'код вывода иконки в трей
    .cbSize = Len(nid)
    .hwnd = Me.hwnd
    .uID = vbNull
    .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
    .uCallbackMessage = WM_MySysTrayNotify 'WM_MOUSEMOVE
    .hIcon = lngIconTray
    .szTip = "Simple Tray Tooltip" & vbNullChar
    .uTimeoutAndVersion = NOTIFYICON_VERSION_4
  End With
  MsgBox Shell_NotifyIcon(NIM_ADD, nid)
  MsgBox Shell_NotifyIcon(NIM_SETVERSION, nid)

Public Const NIN_POPUPOPEN = (WM_USER + &H6)
Public Const NIN_POPUPCLOSE = (WM_USER + &H7)

   Case WM_MySysTrayNotify
      Dim lw_lparam
      lw_lparam = LOWORD(lParam)
      Select Case lw_lparam
        ...
        Case NIN_POPUPOPEN
          'Debug.Print "NIN_POPUPOPEN"
          Form1.Text1.Text = Form1.Text1.Text & vbCrLf & "NIN_POPUPOPEN"
          Dim GET_X_LPARAM As Long
          Dim GET_Y_LPARAM As Long
          GET_X_LPARAM = LOWORD(wParam)
          GET_Y_LPARAM = HIWORD(wParam)
          Form1.Text1.Text = Form1.Text1.Text & vbCrLf & "x=" & GET_X_LPARAM & "y=" & GET_Y_LPARAM
          'to indicate that the richer pop-up UI should be used in place of a standard textual tooltip
        Case NIN_POPUPCLOSE
          'Debug.Print "NIN_POPUPCLOSE"
          Form1.Text1.Text = Form1.Text1.Text & vbCrLf & "NIN_POPUPCLOSE"
          'to indicate that the rich pop-up UI should be closed

.szTip = "Simple Tray Tooltip" & vbCrLf & "The string number 2" & vbNullChar

Public Function Create(ByVal ParentHwnd As Long) As Boolean
...
   'now set our tooltip info structure
   With ti
      .lFlags = TTF_IDISHWND Or TTF_TRACK Or TTF_ABSOLUTE
      'set the hwnd prop to our parent control's hwnd
      .hwnd = m_lParentHwnd 'screen==0
      .lId = m_lParentHwnd 'screen==0
      .hInstance = App.hInstance
      '.lpRect = lpRect '????????
      .lSize = Len(ti)
   End With
   
   'add the tooltip structure
   SendMessage m_lTTHwnd, TTM_ADDTOOLA, 0&, ti
...
   SendMessage m_lTTHwnd, TTM_TRACKACTIVATE, True, ti

Private Sub Command2_Click()
    TT.Style = TTStandard
    TT.Title = "Large title Text"
    TT.TipText = "Small tooltip text"
    TT.Icon = lngIconTIP
    TT.Create 0
End Sub

Private Sub Command3_Click()
  TT.Destroy
End Sub

...
   Dim res As Long
   If mvarAttachToTaskbar = False Then 'куда заказали, туда и рисуем
     With pt
       .x = mvarXpos
       .y = mvarYpos
     End With
   
     'ClientToScreen m_lTTHwnd, pt
     ptTip = pt.y * &H10000
     ptTip = ptTip + pt.x
   
     SendMessage m_lTTHwnd, TTM_TRACKPOSITION, 0, ByVal ptTip
     SendMessage m_lTTHwnd, TTM_TRACKACTIVATE, True, ti
     'Calculate tooltip width and height
     res = SendMessage(m_lTTHwnd, TTM_GETBUBBLESIZE, 0, ti)
     mvarXwidth = LOWORD(res)
     mvarYheight = HIWORD(res)
   Else
     'если пытаться TTM_GETBUBBLESIZE без TTM_TRACKACTIVATE то на XP будет crash
     'по сути на XP код не нужен, а на висте crash-а нет но от греха подальше
     'workaround - первоначально убираем за пределы экрана, чтоб узнать размер и правильно расположить
     SendMessage m_lTTHwnd, TTM_TRACKPOSITION, 0, ByVal ((-1000) * &H10000 - 1000)
   
     SendMessage m_lTTHwnd, TTM_TRACKACTIVATE, True, ti
   
     'Calculate tooltip width and height
     res = SendMessage(m_lTTHwnd, TTM_GETBUBBLESIZE, 0, ti)
     mvarXwidth = LOWORD(res)
     mvarYheight = HIWORD(res)
     
     Dim TBxy As RECT
     Dim TBpos As String
     TBxy = TaskBarPX
     TBpos = WhereTaskbarFULL
     'коррекция положения на экране
     If TBpos = "UP" Then
       If mvarYpos < TBxy.Bottom Then mvarYpos = TBxy.Bottom
     Else
       If mvarYpos < 0 Then mvarYpos = 0
     End If
     If TBpos = "LEFT" Then
       If mvarXpos < TBxy.Right Then mvarXpos = TBxy.Right
       mvarYpos = mvarYpos - mvarYheight 'по нижнему краю
     Else
       If mvarXpos < 0 Then mvarXpos = 0
     End If
     If TBpos = "RIGHT" Then
       If ((mvarXpos + mvarXwidth) > TBxy.Left) Then 'но это только если taskbar справа
         mvarXpos = TBxy.Left - mvarXwidth
       End If
       mvarYpos = mvarYpos - mvarYheight 'по нижнему краю
     Else
       If ((mvarXpos + mvarXwidth) > (Screen.Width / Screen.TwipsPerPixelX)) Then
         mvarXpos = (Screen.Width / Screen.TwipsPerPixelX) - mvarXwidth
       End If
     End If
     If TBpos = "DOWN" Then
       If ((mvarYpos + mvarYheight) > TBxy.Top) Then 'но это только если taskbar внизу
         mvarYpos = TBxy.Top - mvarYheight
       End If
     Else
       If ((mvarYpos + mvarYheight) > (Screen.Height / Screen.TwipsPerPixelY)) Then
         mvarYpos = (Screen.Height / Screen.TwipsPerPixelY) - mvarYheight
       End If
     End If
    
    With pt
      .x = mvarXpos
      .y = mvarYpos
    End With
    'ClientToScreen m_lTTHwnd, pt
    
    ptTip = pt.y * &H10000
    ptTip = ptTip + pt.x
     
    SendMessage m_lTTHwnd, TTM_TRACKPOSITION, 0, ByVal ptTip

    lngIconTIP48 = LoadImage(App.hInstance, MAKEINTRESOURCE(201), IMAGE_ICON, 48, 48, LR_DEFAULTCOLOR)
...
    If IsWinVista Then
      TT.Icon = lngIconTIP48
...

  If mvarTitle <> vbNullString Or mvarIcon <> TTNoIcon Then
      SendMessage m_lTTHwnd, TTM_SETTITLE, CLng(mvarIcon), ByVal mvarTitle
   End If