Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _

ByVal dwNewLong As Long) As Long

Private Const GCL_HCURSOR = (-12)

Dim oldCursor As Long, hCursor As Long

Private Sub Form_Load()

' Загружаем из файла анимационный курсор

hCursor = LoadCursorFromFile("c:\test.ani")

' Привязываем курсор к окну

oldCursor = SetClassLong(hwnd, GCL_HCURSOR, hCursor)

End Sub

Private Sub Form_Unload(Cancel As Integer)

' Восстанавливаем прежний курсор

Call SetClassLong(Me.hwnd, GCL_HCURSOR, oldCursor)

End Sub