Option Explicit

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 LoadCursorFromFile Lib "User32" Alias _
    "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function DestroyCursor Lib "User32" (ByVal _
    hCursor As Long) As Long

Private Declare Function GlobalLock Lib "Kernel32" (ByVal _
    hMem As Long) As Long

Private Declare Function GlobalUnlock Lib "Kernel32" (ByVal _
    hMem As Long) As Long

Const GCW_HCURSOR = -12

Dim hCursor As Long

Private Sub Form_Load()
  Combo1.AddItem "(kein Cursor)"
  Combo1.AddItem "Appstart.ani"
  Combo1.AddItem "Globe.ani"
  Combo1.AddItem "Hourglas.ani"
  Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
  Dim D As String

  D$ = Combo1.List(Combo1.ListIndex)
  MakeDefaultCursor
  If D$ <> "(kein Cursor)" Then hCursor = _
           LoadCursorFromFile(App.Path & "\" & D$)

  Me.MousePointer = vbCustom
  SetClassLong Me.hwnd, GCW_HCURSOR, hCursor
End Sub

Private Sub Form_Unload(Cancel As Integer)
  MakeDefaultCursor
End Sub

Public Sub MakeDefaultCursor()
  Me.MousePointer = vbDefault
  GlobalUnlock hCursor
  DestroyCursor hCursor
End Sub