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

[MOV]

Есть обычная форма проекта.
Как без API можно изменить вид курсора мыши когда он находится над ней (над формой)?
Не тип курсора (MousePointer в свойствах формы), а именно его вид, то есть прикрепить к нему иконку. Свойство MouseIcon что ли? Но MouseIcon почему-то ничего не меняет.

[Ennor]

Чтобы MouseIcon подхватился, нужно выставить MousePointer = vbCustom (99). Так и не иначе.

[Ariman]

Есть другой путь - скрыть курсор, а на его координаты bitblit'ить необходимое изображение.
В этом случае можно использовать любой рисунок в качестве курсора.

[Nina]

MousePointer=99
MouseIcon=Имя_файла
При этом почему-то, если брать файл *.cur, как советуют в разных "умных" книжках, то курсор получается черно-белый. Поэтому лучше всего брать файл *.ico или *.bmp.

[ASD]

MousePointer=99
MouseIcon=Имя_файла
При этом почему-то, если брать файл *.cur, как советуют в разных "умных" книжках, то курсор получается черно-белый. Поэтому лучше всего брать файл *.ico или *.bmp.

Поддерживаю но анимированый не получится. Только с помощью API
но тут есть жопа. Если прога падает то курсор остается последним.. причем на всю винду...

[A.A.Z.]

Две кнопки: первая - поменять, вторая - восстановить

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

'Code by Jerry Grant (Jerry@jg-design.net)
'Visit his website at http://www.jg-design.net
'This example requires two command buttons
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function CopyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Const OCR_NORMAL As Long = 32512
Private currenthcurs As Long
Private tempcurs As Long
Private newhcurs As Long
Private Sub Command1_Click()
    Dim myDir As String
    Dim lDir As Long
    myDir = Space(255)
    currenthcurs = GetCursor()
    tempcurs = CopyIcon(currenthcurs)
    lDir = GetWindowsDirectory(myDir, 255)
    myDir = Left$(myDir, lDir) & "\cursors\banana.ani"
    newhcurs = LoadCursorFromFile(myDir)
    Call SetSystemCursor(newhcurs, OCR_NORMAL)
End Sub
Private Sub Command2_Click()
    Call SetSystemCursor(tempcurs, OCR_NORMAL)
End Sub