HourGlass

[alexK]

I set the cursor to be hourglasses using the following statement.

Screen.MousePointer = vbHourglass



It change cursor to hourglass however if I click the form it is still get the events as if the coursour was normal. How can I disable events?
Thnks!
Alex.

You could either disable all the controls on the form when the code starts and re-enable them when the code ends. This would not allow the user to click anywhere while the code is running...Or you could just place the following line of code in each control's Click event:


private Sub Command1_Click

If Screen.MousePointer = vbHourglass then Exit Sub

'The rest of your code would go below this comment line


End Sub