vbHourglass

[oleidole85]

I have an ocx that does some work that takes some seconds. I have put in the following statement in the beginning of that code:

MousePointer = vbHourglass

The hourglass does not appear as it is supposed to. If I put in a messagebox below the statement, then the hourglass is shown after the messagebox is closed. The ocx is shown in another programs container. Maybe there is some way to activate the hourglass , just like the messagebox activated it. I have tried SetFocus,SetActiveWindow with no luck.

 

[SBerthold]

try
Screen.MousePointer = vbHourglass

 

[HughLerwill]

Have you tried;

MousePointer = vbHourglass
Doevents

 

[Tom4511]

Also... you may need a Doevents right after you set your mouse pointer and the start of your ocx function.

 

[oleidole85]

I have tried the following statements:
SetFocus
SetForegroundWindow hwnd
SetActiveWindow hwnd
ShowWindow hwnd, 1
BringWindowToTop hwnd
MousePointer = vbHourglass
DoEvents

It still will mot show the hourglass.

 

[chelseatech]

I assign the mousepointer of the currently active form with
Me.MousePointer = VBHourglass

Editor and Publisher of Crystal Clear

http://www.chelseatech.co.nz/pubs.htm