Case WM_NOTIFY
      'Debug.Print "WM_NOTIFY"
      CopyMemory uNMHDR, ByVal lParam, Len(uNMHDR)
      If uNMHDR.hwndFrom = TT.hwnd Then
        Select Case uNMHDR.code
          Case NM_CUSTOMDRAW
            Debug.Print "NM_CUSTOMDRAW"
            Static lvcd As NMTTCUSTOMDRAW
            CopyMemory lvcd, ByVal lParam, Len(lvcd)   ' every structs' member is a Long
            Select Case lvcd.nmcd.dwDrawStage
              ' ====================================================
              Case CDDS_PREPAINT
                Debug.Print "CDDS_PREPAINT"
                SelectObject lvcd.nmcd.hdc, fnt_TT.hFont
                Exit Function

        Case NIN_POPUPOPEN
          'Debug.Print "NIN_POPUPOPEN"
          Form1.Text1.Text = Form1.Text1.Text & vbCrLf & "NIN_POPUPOPEN" 'debug
          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 'debug
          TT.Style = TTStandard
          TT.TipText = " " 'пробел, а иначе не сумеем вывести на экран!!!
          TT.Xpos = GET_X_LPARAM
          TT.Ypos = GET_Y_LPARAM
          TT.Xwidth = 200 'в лоб
          TT.Yheight = 70 'в лоб
          TT.AttachToTaskbar = True
          TT.Create Form1.hwnd 'по идее HWND_SCREEN=0,но как тогда ловить CustomDraw и т.п.?

    Case WM_NOTIFY
      'Debug.Print "WM_NOTIFY"
      CopyMemory uNMHDR, ByVal lParam, Len(uNMHDR)
      If uNMHDR.hwndFrom = TT.hwnd Then
        Select Case uNMHDR.code
          Case TTN_SHOW
            'Debug.Print "TTN_SHOW"
            'задаем размеры Tooltip в лоб как хотим
            SetWindowPos TT.hwnd, 0, TT.Xpos, TT.Ypos, TT.Xwidth, TT.Yheight, SWP_NOZORDER Or SWP_NOACTIVATE
            'делаем окно тултипа непотопляемым
            SetWindowPos TT.hwnd, HWND_TOPMOST, TT.Xpos, TT.Ypos, TT.Xwidth, TT.Yheight, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE
            NewFormMeWindowProc = 1 'TRUE
            Exit Function

          Case NM_CUSTOMDRAW
            'Debug.Print "NM_CUSTOMDRAW"
            Static lvcd As NMTTCUSTOMDRAW
            CopyMemory lvcd, ByVal lParam, Len(lvcd)   ' every structs' member is a Long
            Select Case lvcd.nmcd.dwDrawStage
              ' ====================================================
              Case CDDS_PREPAINT
                'Debug.Print "CDDS_PREPAINT"
                NewFormMeWindowProc = CDRF_NOTIFYPOSTPAINT 'когда система дорисует пустой,пусть сообщит
                Exit Function
              Case CDDS_POSTPAINT 'теперь можно тупо рисовать содержимое
                'Debug.Print "CDDS_POSTPAINT"
                'картинка (какая хочешь)
                DrawIconEx lvcd.nmcd.hdc, _
                 10, _
                 10, _
                 Form1.lngIconTIP48, 48, 48, _
                 0, 0, DI_NORMAL
                 '"TipText" -системным шрифтом
                 Dim sPrintText As String
                 sPrintText = "Small Tooltip Text"
                 TextOut lvcd.nmcd.hdc, 68, 30, sPrintText, Len(sPrintText)
                 sPrintText = "This is line number #2"
                 TextOut lvcd.nmcd.hdc, 68, 45, sPrintText, Len(sPrintText)
                 '"Title"
                 If IsWinVista And ThemesEnabled(TT.hwnd) Then
                   'меняем шрифт и его цвет на крупный Segoe UI 12
                   SetTextColor lvcd.nmcd.hdc, Form1.LabelTTFont.ForeColor
                   Dim oldFont As Long
                   oldFont = SelectObject(lvcd.nmcd.hdc, fnt_TT.hFont)
                   sPrintText = "Large Title Text"
                   TextOut lvcd.nmcd.hdc, 68, 7, sPrintText, Len(sPrintText)
                   SelectObject lvcd.nmcd.hdc, oldFont
                 Else
                   'в принципе здесь можно жирным, но не будем
                   sPrintText = "Large Title Text"
                   TextOut lvcd.nmcd.hdc, 68, 7, sPrintText, Len(sPrintText)
                 End If
              Case Else
            End Select
          Case Else
        End Select
      End If
    Case Else
  End Select

  If uNMHDR.hwndFrom = TT.hwnd Then

        Case NIN_POPUPOPEN
          'Debug.Print "NIN_POPUPOPEN"
          Form2.show