VB中如何自定义光标

VB中如何自定义光标

Option Explicit
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 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 AniCur As Long
Private Sub Form_Load()
AniCur& = LoadCursorFromFile(App.Path & "\大自然等待.ani")
SetClassLong Me.hwnd, GCL_HCURSOR, AniCur
End Sub

Private Sub Form_Unload(Cancel As Integer)
DestroyCursor AniCur
End Sub