Change Mouse Cursor

[eng70640]

How can i change my mouse cursor to a hour glass? I want to change the cursor to hour glass but revert back to normal after a delay of 1 second.

[Megatron]

Me.MousePointer = vbHourGlass
Start = Timer
Do While Timer < Start + 1
    DoEvents
Loop
Me.MousePointer = vbDefault

[eng70640]

Suppose i want my mouse cursor change to hour glass regardless of what active window i am in whenever the value of one textbox of my form changes. However, when i put your code in the change event of my textbox and the VB form is not the active window or minimised , the mouse cursor does not change whenever the text value change and i am in other active window. How can i achieve my objective?

[Megatron]

So basically you want to change it throughout the screen? Then just change Me to Screen.

Screen.MousePointer = vbHourGlass
Start = Timer
Do While Timer < Start + 1
    DoEvents
Loop
Screen.MousePointer = vbDefault

[eng70640]

Hi , i have tried this but to no avail. I want the mouse cursor to change even though the Vb form is minimised or another window is being activated.