Private Sub Class_Initialize()
Screen.MousePointer = vbHourglass
End Sub
Private Sub Class_Terminate()
Screen.MousePointer = vbDefault
End Sub
' Module : Form1
'----------------------------------------------------------------
Private Sub Command1_Click()
Dim HourGlass As CHourGlass
Set HourGlass = New CHourGlass
Dim i As Long
For i = 1 To 9999
Debug.Print i
Next
End Sub
Private Sub Command1_Click()
On Error GoTo Err_Handler
Screen.MousePointer = vbHourglass
' ...
Screen.MousePointer = vbDefault
Exit Sub
Err_Handler:
Screen.MousePointer = vbDefault
' 除错处理
End Sub