membuat animasi pointer

trik kali ini akan membahas bagaimana cara mempercantik pointer mouse,
pertama2 siapkan file yang akan digunakan untuk menggantikan pointer mouse standar,
file ini berekstensi "ani"
dalam project masukkan sebuah form dan dua buah command button serta sebuah module
untuk script codenya bisa dilihat dibawah ini :

script pada bagian module :
Public Const GCL_HCURSOR = -12
Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal _
hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


script pada bagian form :
Dim lResult As Long
Dim mhAniCursor As Long

Private Sub Command1_Click()
mhAniCursor = LoadCursorFromFile(App.Path & "\horse.ani")
'file yg akan digunakan untuk menggantikan pointer mouse dijadikan satu dengan project
'ganti horse.ani dengan nama file yg akan digunakan
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhAniCursor)
End Sub

Private Sub Command2_Click()
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
End Sub

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