Computer Science Canada

How do you make the hourglass appear?

Author:  RGB255 [ Mon Oct 30, 2006 11:11 pm ]
Post subject:  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.

Author:  Silent Avenger [ Mon Oct 30, 2006 11:26 pm ]
Post subject: 

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:
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:
code:
Screen.mousepointer = 0


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

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

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


: