Cursor Change

[Peter L Kessler]

Hi Group

I've been trying to get an hourglass to replace the normal mouse cursor
while my userform pulls a long list of registry information into the form.
This sometimes takes up to ten seconds, so I'd like to show the user that
something is actually happening before they get bored and start clicking
buttons (that usually takes about 2 seconds!)

I've tried inserting this:

System.Cursor = wdCursorWait

but it doesn't do anything. The reset I have at the end of my routine:

If System.Cursor = wdCursorWait Then
System.Cursor = wdCursorNormal
End If

isn't called because the cursor isn't set to Wait. Any ideas on what I've
missed, please, anyone?

Best wishes
Peter




Kessler Associates
E: (e-mail address removed)
W: http://homepages.tesco.net/~plk33/plk33/index.htm

 

[DeeJee]

I've been trying to get an hourglass to replace the normal mouse cursor

while my userform pulls a long list of registry information into the form.

userform.MousePointer = fmMousePointerDefault
or
userform.MousePointer = 0

userform.MousePointer = fmMousePointerHourGlass
or
userform.MousePointer = 11

See userform properties MousePointer

 

[Peter L Kessler]

Hi DeeJee

Many thanks for that. It worked just fine.

Best wishes
Peter




Kessler Associates
E: (e-mail address removed)
W: http://homepages.tesco.net/~plk33/plk33/index.htm