problem with using vbHourglass

I am using 'vbHourglass' to set the cursor to an
hourglass during the data retrieval.
It doesn't work.
I am using the statement -

Screen.mousepointer = vbHourglass

at the start of the Form_Load, and then set it back
to vbArrow at the end of the procedure.

Has anybody seen this type of problem ?

Thanks

The only problem I could think of is that you call a sub that resets the mousepointer.

You procedure probably goes by really fast which does not allow much time for the Hourglass to show.

I am setting the vbHourglass in the sub that reads data
from the database.
Actually the read takes almost a minute. So I really need
the hourglass to be shown.

Try adding a "DoEvents" (cures almost everything) or "Me.Refresh" after seting the cursor.

Well the mousepointer must be over your form to be shown as a hourglass, if you have it invisble it will show a normal cursor. Actually doevents won't do anything in this case, by not having any threading at all your mousepoint wont return to nomal if you move your mouse outside the form