Анимированный курсор

[Oxygen]

Каким образом можно использовать проге на VB5 анимированный курсор. При попытке вписать его как MouseIcon VB выводит ошибку - неподдерживаемый формат файлов.

[Urvin]

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

Private Declare Function LoadCursorFromFile ...
Private Declare function SetClassLong ...
Private Const GCL_HCURSOR = (-12)

Sub Form_Load
cn as string
nc as long

cn= "C:\Windows\Cursors\AppStart.ani"
nc = LoadCursorFromFile(cn)
Call SetClassLong(form1.hwnd, GCL_HCursor, nc)

end sub

[Oxygen]

Спасибо за пример, но при наведение мышки на какой-нибудь объект , например PictureBox курсор снова становится обычным. А если я использую фигурную форму, т.е на ней огромный PictureBox, то курсор вообще не меняется.Что здесь можно сделать?

[Urvin]

picturebox1.hwnd вместо form1.hwnd