• Home
 · 
• Windows API Call/Explanation
 · 
• Code to Set a Animated Cursor(ani) as the MousePointer for the Form

Code to Set a Animated Cursor(ani) as the MousePointer for the Form

Code to Set a Animated Cursor(ani) as the MousePointer for the Form

API Declarations


Private Declare Function SetClassLong 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



Rate Code to Set a Animated Cursor(ani) as the MousePointer for the Form

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Mail me : [email protected]

'To Change the Cursors
hNewCur = LoadCursorFromFile("C:\Windows\Cursors\Globe.Ani")
hOldCur = SetClassLong(Me.hWnd,GCL_HCURSOR,hNewCur

'To Reset the Cursor
hOldCur = SetClassLong(Me.hWnd,GCL_HCURSOR,hOldCur