Carregando um ponteiro animado no mouse

[ℛiqu∊ 13]

Private Declare Function LoadCursorFromFile Lib "User32" Alias "LoadCursorFromFileA" (ByVal LpFileName As String) As Long

Private Declare Function SetClassWord Lib "User32" (ByVal hWnd As Long, ByVal uFlags As Long, ByVal HObject As Long) As Long

 

Private Const GCL_HCURSOR = (-12)

 

Dim hOldCur As Long

Dim hNewCur As Long

 

'To Change the Cursors

hNewCur = LoadCursorFromFile("C:\Windows\Cursors\Globe.Ani")

hOldCur = SetClassWord(Me.hWnd, GCL_HCURSOR, hNewCur)

 

'To Reset the Cursor

hOldCur = SetClassWord(Me.hWnd, GCL_HCURSOR, hOldCur)

 

~Ð@®£@Ñ