Все о курсоре мышки...

[EXIS]

Можно ли глобально отслеживать смену значка курсора, даже если он за пределами формы.

Как картинку текущего курсора запихнуть в bitmap (про обратный процесс я знаю)

Как изменить координаты hot spot'a (центра курсора или "точки клика") текущего курсора.

Вот и все

[Williams]

Можно посмотреть в сторону GetCursorInfo:

Код: Выделить всё

<StructLayout(LayoutKind.Sequential)> _
Structure POINT
        Public x As Int32
        Public y As Int32
    End Structure

    <StructLayout(LayoutKind.Sequential)> _
    Structure CURSORINFO
        Public cbSize As Int32
        ' Specifies the size, in bytes, of the structure.
        ' The caller must set this to Marshal.SizeOf(typeof(CURSORINFO)).
        Public flags As Int32
        ' Specifies the cursor state. This parameter can be one of the following values:
        '    0             The cursor is hidden.
        '    CURSOR_SHOWING    The cursor is showing.
        Public hCursor As IntPtr
        ' Handle to the cursor.
        Public ptScreenPos As Point
        ' A POINT structure that receives the screen coordinates of the cursor.
    End Structure

    <DllImport("user32.dll")> _
    Private Shared Function GetCursorInfo(ByRef pci As CURSORINFO) As Boolean
    End Function

    Private Const CURSOR_SHOWING As Int32 = &H1

Использование:

Код: Выделить всё

        Dim cur As New CURSORINFO
        GetCursorInfo(cur)

Также при помощи GetCursor можно получить хендл курсора:

Код: Выделить всё

    <DllImport("user32.dll")> _
    Private Shared Function GetCursorInfo(ByRef pci As CURSORINFO) As Boolean
    End Function

Далее тебе нужно будет создать изображение на основе хендла