Private Const GCL_HCURSOR = -12
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long 
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Any) As Long 
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 Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal _
hwnd As Long, ByVal nIndex As Long) As Long 
 
Dim lResult As Long 
Dim mhAniCursor As Long 
Dim mhAniCursor2 As Long 

Private Sub Command1_Click()
' Animierten Cursor laden 
 
' Stellen Sie hier Ihren animierten Cursor ein 
' Pfad anpassen ! 
  mhAniCursor = LoadCursorFromFile("C:\globe.ani")
  lResult = SetClassLong((hwnd), GCL_HCURSOR, mhAniCursor)
End Sub 

Private Sub Command2_Click()
' animierten Cursor entladen 
  lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
  lResult = DestroyCursor(mhAniCursor)
End Sub 

Private Sub Form_Load()
  mhBaseCursor = GetClassLong((hwnd), GCL_HCURSOR)
End Sub 

Private Sub Form_Unload(Cancel As Integer)
  lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
  lResult = DestroyCursor(mhAniCursor)
End Sub