-----------------------------------

RGB255

Mon Oct 30, 2006 11:11 pm


How do you make the hourglass appear?

-----------------------------------

I'm making a program and there are graphics in it. While the graphics are being drawn I want the mousepointer to appear as the hourglass and change back again.


-----------------------------------

Silent Avenger

Mon Oct 30, 2006 11:26 pm



-----------------------------------

Well there are several ways you can do this the easiest of which is to use the screen properties. I believe the mousepointer which is the hourgrlass is number 11. So to make the mousepointer into an hourglass you would use the following code:
Screen.mousepointer = 11 this will change the mousepointer to an hour glass 
Also to change back to the regular mouse pointer you would use the code: 
Screen.mousepointer = 0

Here's an example program to show you what this does. (put 2 command buttons on your form)

Private Sub Command1_Click()
Screen.mousepointer = 11
End Sub

Private Sub Command2_Click()
Screen.mousepointer = 0
End Sub