Как узнать размер курсора мыши

For i& = 0 To UBound(arr)        'перебираем строки
    For j& = 0 To UBound(arr, 2) 'перебираем столбцы
        arr(i, j) = Rnd
    Next
Next

ReDim bmBits(0 To bmWidth - 1, 0 To bmHeight - 1) As Byte

GetBitmapBits tIconInfo.hbmMask, tBMP.bmWidthBytes, bmBits(0, 0)

ReDim bmBits(0 To bmWidth - 1, 0 To bmHeight - 1) As Byte

Option Explicit
 
Private Type BITMAPINFOHEADER
    biSize          As Long
    biWidth         As Long
    biHeight        As Long
    biPlanes        As Integer
    biBitCount      As Integer
    biCompression   As Long
    biSizeImage     As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed       As Long
    biClrImportant  As Long
End Type
Private Type BITMAPINFO
    bmiHeader       As BITMAPINFOHEADER
    bmiColors(1)    As Long
End Type
 
Private Declare Function StretchDIBits Lib "gdi32" ( _
                         ByVal hdc As Long, _
                         ByVal x As Long, _
                         ByVal y As Long, _
                         ByVal dx As Long, _
                         ByVal dy As Long, _
                         ByVal SrcX As Long, _
                         ByVal SrcY As Long, _
                         ByVal wSrcWidth As Long, _
                         ByVal wSrcHeight As Long, _
                         ByRef lpBits As Any, _
                         ByRef lpBitsInfo As BITMAPINFO, _
                         ByVal wUsage As Long, _
                         ByVal dwRop As Long) As Long
 
Private Sub Command1_Click()
    Dim z() As Long
    Dim tBI As BITMAPINFO
   
    ReDim z(7)
    
    z(0) = &H3C
    z(1) = &H42
    z(2) = &HB9
    z(3) = &H85
    z(4) = &HA9
    z(5) = &HA9
    z(6) = &H42
    z(7) = &H3C
    
    With tBI.bmiHeader
        .biSize = Len(tBI.bmiHeader)
        .biBitCount = 1
        .biHeight = 8
        .biPlanes = 1
        .biWidth = 8
    End With
    
    tBI.bmiColors(0) = vbBlack
    tBI.bmiColors(1) = vbMagenta
    
    StretchDIBits Me.hdc, 0, 0, 64, 64, 0, 0, 8, 8, z(0), tBI, 0, vbSrcCopy
    
End Sub

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 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
 
' ------------------------------------------------------- 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