MousePointer in MicroStation VBA

[Andrzejek]

I write some small programs in MVBA, which is Bentley's MicroStation version of VBA (AutoCad on steroids )
In my UserForm I would like to change the MousePointer to Hourglass and back to Default when I need to, so I have something like:

Me.MousePointer = fmMousePointerHourGlass[green]
'... some code[/green]
Me.MousePointer = fmMousePointerDefault

but when I run my app, MousePoiner does not change, it still displays just the default arrow pointer instead of hourglass

What do I need to do to have Hourglass and then back Default pointer?

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

 

[PHV]

Perhaps this ?
Me.MousePointer = 11 'fmMousePointerHourGlass

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Andrzejek]

Thanks PHV, but 11 is just a value for fmMousePointerHourGlass, and still it does not change the mouse pointer. Good guess tho...

I did find this, but that's just convoluted way to assign mouse pointer to display different cursors (and that may work) but there is no information how to get back to the default pointer :-(

Such simple and basic stuff should be easy.

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

 

[combo]

It should work, but only for userform area. You can try to set MouseIcon for the userform instead and initialise it by:
Me.MousePointer = fmMousePointerCustom

combo