Change Mouse Cursor

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.

Code:

---

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

---

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?

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

Code:

---

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

---

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. :)