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

Option Explicit
Private Declare Function GetCursorInfo Lib "user32" (ByRef pci As CURSORINFO) As Long
Private Declare Function GetIconInfo Lib "user32" (ByVal hIcon As Long, ByRef piconinfo As ICONINFO) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (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 SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOACTIVATE = &H10
 
Private Type ICONINFO
    fIcon           As Long
    xHotspot        As Long
    yHotspot        As Long
    hbmMask         As Long
    hbmColor        As Long
End Type
 
Private Type CURSORINFO
    cbSize          As Long
    Flags           As Long
    hCursor         As Long
    ptPosX          As Long
    ptPosY          As Long
End Type
 
Private Type RECT
    Left            As Long
    Top             As Long
    Right           As Long
    Bottom          As Long
End Type
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
' ------------------------------------------------------- GDI Plus --------------------------------------------------------------------
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "gdiplus" (ByVal hBmp As Long, ByVal hPal As Long, ByRef BITMAP As Long) As Long
Private Declare Function GdipGetImagePixelFormat Lib "gdiplus" (ByVal Image As Long, ByRef PixelFormat As Long) As Long
Private Declare Function GdipGetImageDimension Lib "gdiplus" (ByVal Image As Long, ByRef Width As Single, ByRef Height As Single) As Long
Private Declare Function GdipBitmapLockBits Lib "gdiplus" (ByVal BITMAP As Long, ByRef RECT As RECT, ByVal Flags As ImageLockMode, ByVal PixelFormat As Long, ByRef LockedBitmapData As BitmapData) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal Image As Long) As Long
Private Declare Function GdipBitmapUnlockBits Lib "gdiplus" (ByVal BITMAP As Long, ByRef LockedBitmapData As BitmapData) As Long
Private Declare Function GdiplusStartup Lib "gdiplus" (Token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "gdiplus" (ByVal Token As Long) As Long
Private Const PixelFormat32bppRGB   As Long = &H22009
 
Private Type GdiplusStartupInput
    GdiplusVersion              As Long
    DebugEventCallback          As Long
    SuppressBackgroundThread    As Long
    SuppressExternalCodecs      As Long
End Type
 
Private Type ARGB
    Blue            As Byte
    Green           As Byte
    Red             As Byte
    Alpha           As Byte
End Type
 
Private Type BitmapData
    Width           As Long
    Height          As Long
    Stride          As Long
    PixelFormat     As Long
    Scan0           As Long
    Reserved        As Long
End Type
 
Private Enum ImageLockMode
    ImageLockModeRead = &H1
    ImageLockModeWrite = &H2
    ImageLockModeUserInputBuf = &H4
End Enum
 
Public Function GetActualMousePointerHeight() As Integer
    Dim tCurInfo As CURSORINFO
    Dim tICONINFO As ICONINFO
    Dim tARGB() As ARGB
    Dim tRECT As RECT
    Dim tBitmapData As BitmapData
    Dim lPixelFormat As Long
    Dim lngX As Long
    Dim lngY As Long
    Dim sngWidth As Single
    Dim sngHeight As Single
    Dim lngArgbBmp As Long
    Dim lngColorBmp As Long
    Dim SI As GdiplusStartupInput
    Dim GdipToken As Long
    Dim CalcHeight As Long
    
    ' Запустить GDI+
    SI.GdiplusVersion = 1
    If GdiplusStartup(GdipToken, SI) Then Exit Function
    
    tCurInfo.cbSize = Len(tCurInfo)
    
    If GetCursorInfo(tCurInfo) Then
        If tCurInfo.Flags = 1 And CBool(tCurInfo.hCursor) Then
            If GetIconInfo(tCurInfo.hCursor, tICONINFO) Then
                If tICONINFO.hbmColor Then
                    If GdipCreateBitmapFromHBITMAP(tICONINFO.hbmColor, 0&, lngColorBmp) = 0 Then
                        If GdipGetImagePixelFormat(lngColorBmp, lPixelFormat) = 0 Then
                            If lPixelFormat <> PixelFormat32bppRGB Then
                                ' Ошибка
                            Else
                                If GdipGetImageDimension(lngColorBmp, sngWidth, sngHeight) = 0 Then
                                    With tRECT
                                        .Right = CLng(sngWidth)
                                        .Bottom = CLng(sngHeight)
                                    End With
                                    
                                    ReDim tARGB(tRECT.Right - 1&, tRECT.Bottom - 1&)
                                    
                                    With tBitmapData
                                        .Scan0 = VarPtr(tARGB(0&, 0&))
                                        .Stride = 4& * tRECT.Right
                                    End With
                                    
                                    If GdipBitmapLockBits(lngColorBmp, tRECT, ImageLockModeRead Or ImageLockModeUserInputBuf, lPixelFormat, tBitmapData) = 0 Then
                                        For lngY = 0 To tBitmapData.Height - 1
                                            For lngX = 0 To tBitmapData.Width - 1
                                                ' Если хотябы один из пикселей не будет являться прозрачным
                                                If tARGB(lngX, lngY).Alpha > 0 Then
                                                    CalcHeight = CalcHeight + 1
                                                    
                                                    ' Прервать выполнение цикла и перейти к следующему столбцу Y по вертикали
                                                    Exit For
                                                End If
                                            Next lngX
                                        Next lngY
                                        
                                        Call GdipDisposeImage(lngArgbBmp)
                                        Call GdipBitmapUnlockBits(lngColorBmp, tBitmapData)
                                    End If
                                End If
                            End If
                        End If
                        
                        Call GdipDisposeImage(lngColorBmp)
                    End If
                    
                    DeleteObject tICONINFO.hbmColor
                End If
                
                CalcHeight = CalcHeight - tICONINFO.yHotspot
                DeleteObject tICONINFO.hbmMask
            End If
        End If
    End If
    
    GdiplusShutdown GdipToken
    GetActualMousePointerHeight = CalcHeight
End Function
 
Private Sub Command1_Click()
    Command1.Caption = GetActualMousePointerHeight
End Sub
 
Private Sub Command2_Click()
    Unload Me
End Sub
 
Private Sub Timer1_Timer()
    Dim pt As POINTAPI
    
    GetCursorPos pt
    SetWindowPos hwnd, 0, pt.x, pt.y + (GetActualMousePointerHeight - 1), 0, 0, SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE
End Sub