Experts Exchange connects you with the people and services you need so you can get back to work.
Public Sub YourMethod()
Dim OldMousePointer As Long
OldMousePointer = Screen.MousePointer
Screen.MousePointer = ccHourglass
Screen.MousePointer = OldMousePointer
Open in new window
Public Enum MousePointerConstants
ccDefault = 0 '&H0
'Arrow mouse pointer
ccArrow = 1 '&H1
'Cross mouse pointer
ccCross = 2 '&H2
'I-Beam mouse pointer
ccIBeam = 3 '&H3
'Icon mouse pointer
ccIcon = 4 '&H4
'Size mouse pointer
ccSize = 5 '&H5
'Size NE SW mouse pointer
ccSizeNESW = 6 '&H6
'Size N S mouse pointer
ccSizeNS = 7 '&H7
'Size NW SE mouse pointer
ccSizeNWSE = 8 '&H8
'Size W E mouse pointer
ccSizeEW = 9 '&H9
'Up arrow mouse pointer
ccUpArrow = 10 '&HA
'Hourglass mouse pointer
ccHourglass = 11 '&HB
'No drop mouse pointer
ccNoDrop = 12 '&HC
'Arrow and Hourglass mouse pointer
ccArrowHourglass = 13 '&HD
'Arrow and Question mark mouse pointer
ccArrowQuestion = 14 '&HE
'Size all mouse pointer
ccSizeAll = 15 '&HF
'Custom mouse pointer icon specified by the MouseIcon property
ccCustom = 99 '&H63
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $37.50.
Premium members get this course for $25.00.
Premium members get this course for $299.99.
Premium members get this course for $349.00.
Premium members get this course for $151.20.
Premium members get this course for $122.40.