How Do I Change Mouse Pointer to Hour Glass During Subroutine

[Grippen]

Simple Question:

I have a VBScript Sub-Routine in Outlook that's taking 30secs or so. How do I change the mouse pointer to an hour glass while my PC is thinking? - I'm sure this questions been asked before but I can't find it!

 

[TazzMann]

This should do the Trick:
screen.mousepointer = vbHourglass

and then when you want to change it back:

screen.mousepointer = vbDefault Tazzmann

 

[JohnYingling]

Save existing pointer then restore

Dim lngPointer as long
lngPointer = screen.mousepointer ' Save Mouse Pointer
screen.mousepointer = vbHourglass

......... code

screen.mousepointer = lngpointer ' Restore pointer

http://www.VBCompare.com

http://www.VBSortGen.com