Option Explicit
 
' Benötigte API-Deklarationen
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 SetCapture Lib "user32" ( _
  ByVal hwnd As Long) As Long
 
Private Declare Function ReleaseCapture Lib "user32" () As Long
 
' Window-Handle der Form, in der der animierte
' Cursor angezeigt werden soll
Private hwnd As Long
 
' Mauszeiger - ursprüngliches Handle
Private hCursorOld As Long
 
' Handle des neuen Mauszeigers
Private hCursor As Long

' benutzerdefinierten Mauszeiger laden und anzeigen
Public Function SetMouseCursor(ByVal nWnd As Long, _
  ByVal sFile As String) As Boolean
 
  ' zunächst Mausereignisse eines früheren Aufrufs
  ' freigeben und ursprünglichen Cursor wiederherstellen
  ReleaseMouseCursor
 
  Dim nResult As Long
 
  ' Cursor aus Datei laden
  hCursor = LoadCursorFromFile(sFile)
  If hCursor <> 0 Then
    hwnd = nWnd
    ' Mausereignisse auf die Form umleiten
    SetCapture hwnd
 
    ' neuen Cursor festlegen
    hCursorOld = SetCursor(hCursor)
    SetMouseCursor = True
  End If
End Function

' benutzerdefinierten Mauszeiger zerstören
' und ursprünglichen Cursor wiederherstellen
Public Sub ReleaseMouseCursor()
  If hwnd <> 0 Then
    If hCursor <> 0 And hCursorOld <> hCursor Then
      SetCursor hCursorOld
      ReleaseCapture
    End If
  End If
 
  hwnd = 0
  hCursor = 0
  hCursorOld = 0
End Sub

Private Sub DoSomething()
  ' animierten Mauszeiger anzeigen
  SetMouseCursor Me.hWnd, "cursor.ani"
 
  ' hier die Aktion, die ausgeführt werden soll
  ' ...
 
  ' Standard-Mauszeiger wiederherstellen
  ReleaseMouseCursor
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de