Как узнать, на какое количество пикселей вниз, система по умолчанию, отодвигает подсказку от курсора мыши?

SetWindowPos Form2.hwnd, HWND_TOPMOST, pt.x, pt.y + ((CursorSizeHeight - HotY) + 1), 0, 0, SWP_NOSIZE Or SWP_NOACTIVATE

Option Explicit
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExW" (ByVal dwExStyle As Long, ByVal lpClassName As Long, ByVal lpWindowName As Long, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
 
Private Const TOOLTIPS_CLASS = "tooltips_class32"
Private Const WS_POPUP = &H80000000
Private Const CW_USEDEFAULT = &H80000000
Private Const TTS_ALWAYSTIP = &H1
Private Const TTS_NOPREFIX = &H2
Private Const WS_EX_TOPMOST = &H8&
Private Const TTF_IDISHWND = &H1
Private Const TTF_TRACK = &H20
Private Const TTF_ABSOLUTE = &H80
Private Const WM_USER = &H400
Private Const TTM_ADDTOOLW = (WM_USER + 50)
Private Const TTM_TRACKACTIVATE = (WM_USER + 17)
Private Const TTM_TRACKPOSITION = (WM_USER + 18)
Private Const TTM_SETTOOLINFOW = (WM_USER + 54)
Private Const TTM_UPDATETIPTEXTW = (WM_USER + 57)
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Type TOOLINFOW
    cbSize      As Long
    uFlags      As Long
    hwnd        As Long
    uId         As Long
    cRect       As RECT
    hinst       As Long
    lpszText    As String
    lParam      As Long
End Type
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Dim hwndTT As Long
Dim ti As TOOLINFOW
Dim g_TrackingMouse As Boolean
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Static oldX As Single
    Static oldY As Single
    Dim pt As POINTAPI
    
    ' // The mouse has just entered the window.
    ' // Request notification when the mouse leaves.
    If g_TrackingMouse = False Then
        ' // Activate the tooltip.
        SendMessage hwndTT, TTM_TRACKACTIVATE, 0, VarPtr(ti)
        
        ' // Update the text.
        SendMessage hwndTT, TTM_SETTOOLINFOW, 0, VarPtr(ti)
        
        SendMessage hwndTT, TTM_UPDATETIPTEXTW, 0, VarPtr(ti)
        
        ' // Position the tooltip. The coordinates are adjusted so that the tooltip does not overlap the mouse pointer.
        
        ' POINT pt = { newX, newY };
        ' ClientToScreen(hDlg, &pt);
        ' SendMessage(g_hwndTrackingTT, TTM_TRACKPOSITION, 0, (LPARAM)MAKELONG(pt.x + 10, pt.y - 20));
        pt.x = x / Screen.TwipsPerPixelX
        pt.y = y / Screen.TwipsPerPixelY
        ClientToScreen Me.hwnd, pt
        pt.x = pt.x + 10
        pt.y = pt.y - 20
        
        Me.Caption = pt.x & "x" & pt.y
        
        SendMessage hwndTT, TTM_TRACKPOSITION, 0, VarPtr(pt)
    End If
End Sub
 
Private Sub Form_Load()
    ' // Create a tooltip.
    hwndTT = CreateWindowEx(WS_EX_TOPMOST, StrPtr(TOOLTIPS_CLASS), 0, WS_POPUP Or TTS_NOPREFIX Or TTS_ALWAYSTIP, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, Me.hwnd, 0, App.hInstance, ByVal 0&)
    
    If hwndTT > 0 Then
        ' // Set up the tool information. In this case, the "tool" is the entire parent window.
        
        ' g_toolItem.cbSize   = sizeof(TOOLINFO);
        ' g_toolItem.uFlags   = TTF_IDISHWND | TTF_TRACK | TTF_ABSOLUTE;
        ' g_toolItem.hwnd     = hDlg;
        ' g_toolItem.hinst    = g_hInst;
        ' g_toolItem.lpszText = pText;
        ' g_toolItem.uId      = (UINT_PTR)hDlg;
        ' GetClientRect (hDlg, &g_toolItem.rect);
        
        With ti
            .cbSize = Len(ti)
            .uFlags = TTF_IDISHWND Or TTF_TRACK Or TTF_ABSOLUTE
            .hwnd = Me.hwnd
            .hinst = App.hInstance
            .lpszText = "Привет!"
            .uId = Me.hwnd
            GetClientRect Me.hwnd, .cRect
        End With
        
        ' // Associate the tooltip with the tool window.
        SendMessage hwndTT, TTM_ADDTOOLW, 0, VarPtr(ti)
    End If
End Sub

Option Explicit
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExW" (ByVal dwExStyle As Long, ByVal lpClassName As Long, ByVal lpWindowName As Long, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wFlags As Long) As Long
 
Private Const TOOLTIPS_CLASS = "tooltips_class32"
Private Const WS_POPUP = &H80000000
Private Const CW_USEDEFAULT = &H80000000
Private Const TTS_ALWAYSTIP = &H1
Private Const TTS_NOPREFIX = &H2
Private Const WS_EX_TOPMOST = &H8&
Private Const TTF_IDISHWND = &H1
Private Const TTF_TRACK = &H20
Private Const TTF_ABSOLUTE = &H80
Private Const WM_USER = &H400
Private Const TTM_ADDTOOLW = (WM_USER + 50)
Private Const TTM_TRACKACTIVATE = (WM_USER + 17)
Private Const TTM_TRACKPOSITION = (WM_USER + 18)
Private Const TTM_SETTOOLINFOW = (WM_USER + 54)
Private Const TTM_UPDATETIPTEXTW = (WM_USER + 57)
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_NOZORDER = &H4
Private Const HWND_TOPMOST = -1
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Type TOOLINFOW
    cbSize      As Long
    uFlags      As Long
    hwnd        As Long
    uId         As Long
    cRect       As RECT
    hinst       As Long
    lpszText    As String
    lParam      As Long
End Type
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Dim hwndTT As Long
Dim ti As TOOLINFOW
Dim g_TrackingMouse As Boolean
 
Private Sub Command1_Click()
    Dim rct As RECT
    
    GetWindowRect Me.hwnd, rct
    
    Print rct.Left
    Print rct.Top
    Print rct.Right
    Print rct.Bottom
End Sub
 
Private Function MakeLong(ByVal wLow As Integer, ByVal wHigh As Integer) As Long
    MakeLong = wHigh * &H10000 + wLow
End Function
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Static oldX As Single
    Static oldY As Single
    Dim pt As POINTAPI
    
    ' // The mouse has just entered the window.
    ' // Request notification when the mouse leaves.
    If g_TrackingMouse = False Then
        If oldX <> x And oldY <> y Then
            oldX = x
            oldY = y
            
            ' // Activate the tooltip.
            SendMessage hwndTT, TTM_TRACKACTIVATE, True, VarPtr(ti)
            
            ' // Update the text.
            'SendMessage hwndTT, TTM_SETTOOLINFOW, 0, VarPtr(ti)
            
            SendMessage hwndTT, TTM_UPDATETIPTEXTW, 0, VarPtr(ti)
            
            ' // Position the tooltip. The coordinates are adjusted so that the tooltip does not overlap the mouse pointer.
            
            ' POINT pt = { newX, newY };
            ' ClientToScreen(hDlg, &pt);
            ' SendMessage(g_hwndTrackingTT, TTM_TRACKPOSITION, 0, (LPARAM)MAKELONG(pt.x + 10, pt.y - 20));
            pt.x = x / Screen.TwipsPerPixelX
            pt.y = y / Screen.TwipsPerPixelY
            ClientToScreen Me.hwnd, pt
            pt.x = pt.x + 10
            pt.y = pt.y - 20
            
            Me.Caption = pt.x & "x" & pt.y
            
            SendMessage hwndTT, TTM_TRACKPOSITION, 0, MakeLong(pt.x, pt.y)
            'SetWindowPos hwndTT, HWND_TOPMOST, pt.x, pt.y, 0, 0, SWP_NOSIZE Or SWP_NOACTIVATE
        End If
    End If
End Sub
 
Private Sub Form_Load()
    ' // Create a tooltip.
    hwndTT = CreateWindowEx(WS_EX_TOPMOST, StrPtr(TOOLTIPS_CLASS), 0, WS_POPUP Or TTS_NOPREFIX Or TTS_ALWAYSTIP, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, Me.hwnd, 0, App.hInstance, ByVal 0&)
    
    If hwndTT > 0 Then
        ' // Set up the tool information. In this case, the "tool" is the entire parent window.
        
        ' g_toolItem.cbSize   = sizeof(TOOLINFO);
        ' g_toolItem.uFlags   = TTF_IDISHWND | TTF_TRACK | TTF_ABSOLUTE;
        ' g_toolItem.hwnd     = hDlg;
        ' g_toolItem.hinst    = g_hInst;
        ' g_toolItem.lpszText = pText;
        ' g_toolItem.uId      = (UINT_PTR)hDlg;
        ' GetClientRect (hDlg, &g_toolItem.rect);
        
        With ti
            .uFlags = TTF_IDISHWND Or TTF_TRACK Or TTF_ABSOLUTE
            .hwnd = Me.hwnd
            '.hinst = App.hInstance
            .lpszText = "Привет!"
            .uId = Me.hwnd
            GetWindowRect Me.hwnd, .cRect
            .cbSize = Len(ti)
        End With
        
        Print ti.cRect.Left
        Print ti.cRect.Top
        Print ti.cRect.Right
        Print ti.cRect.Bottom
        
        ' // Associate the tooltip with the tool window.
        SendMessage hwndTT, TTM_ADDTOOLW, 0, VarPtr(ti)
    End If
End Sub

Private Function MakeLong(ByVal wLow As Integer, ByVal wHigh As Integer) As Long
    MakeLong = wHigh * &H10000 + wLow
End Function

Public Sub GetMouseCursorHeight(SizeHeight As Integer, HotY As Integer)
    Dim tCurInfo As CURSORINFO
    
    ' If there is no mouse cursor, these should be 0
    SizeHeight = 0
    HotY = 0
    
    tCurInfo.cbSize = Len(tCurInfo)
    GetCursorInfo tCurInfo
    
    If tCurInfo.Flags = 1 And CBool(tCurInfo.hCursor) Then
        ' In case we can't figure out the dimensions, this is a best guess
        SizeHeight = 19
        
        Dim tICONINFO As ICONINFO
        
        If GetIconInfo(tCurInfo.hCursor, tICONINFO) Then
            Dim bm As BITMAP
            
            If GetObjectW(tICONINFO.hbmMask, Len(bm), bm) <> 0 Then
                ' Extract the bitmap bits
                Dim max As Long
                Dim curMask() As Byte
                
                max = bm.bmWidth * bm.bmHeight / 8
                ReDim curMask(max * 2 - 1) ' Enough space for the mask and the xor mask
                
                ' bm.bmWidthBytes = UBound(curMask)
                If GetBitmapBits(tICONINFO.hbmMask, UBound(curMask), curMask(0)) <> 0 Then
                    Dim hasXORMask As Byte
                    Dim Empt As Boolean
                    Dim bottom As Long
                    
                    If tICONINFO.hbmColor Then
                    
                    Else
                        ' if no color bitmap, then the hbmMask is a double height bitmap
                        ' with the cursor and the mask stacked.
                        hasXORMask = 1
                        max = max / 2
                    End If
                    
                    ' Go through the bitmap looking for the bottom of the image and/or mask
                    Empt = True
                    bottom = max
                    bottom = bottom - 1
                    
                    Do While bottom >= 0
                        If curMask(bottom) <> &HFF Or (hasXORMask And (curMask(bottom + max) <> 0)) Then
                            Empt = False
                            Exit Do
                        End If
                        
                        bottom = bottom - 1
                    Loop
                    
                    If Empt = False Then
                        ' Go through the bitmap looking for the top of the image and/or mask
                        Dim top As Long
                        Dim byteWidth As Long
                        
                        For top = 0 To max - 1
                            If curMask(top) <> &HFF Or (hasXORMask And (curMask(top + max) <> 0)) Then Exit For
                        Next
                        
                        ' byteWidth = bytes per row AND bytes per vertical pixel
                        byteWidth = bm.bmWidth / 8
                        bottom = bottom / byteWidth
                        top = top / byteWidth
                        
                        SizeHeight = bottom - top + 1
                        HotY = tICONINFO.yHotspot - top
                    Else
                        ' (Final value) We didn't find anything in the bitmap.
                        ' So, we'll make a guess with the information that we have.
                        ' Note: This seems to happen on I-Beams and Cross-hairs -- cursors that
                        ' are all inverted. Strangely, their hbmColor is non-null.
                        SizeHeight = bm.bmHeight
                        HotY = tICONINFO.yHotspot
                    End If
                End If
            End If
            
            DeleteObject tICONINFO.hbmMask
            If tICONINFO.hbmColor Then DeleteObject tICONINFO.hbmColor
        End If
    End If
End Sub