Private Sub Command1_Click()
Dim i As Long, j As Long
For i = 1 To 100
Text1.Text = i
For j = 1 To 100000: DoEvents
Next
Next
Text1.Text = "Done"
End Sub
'可以改变DoEvents的位置看看
Private Sub Command1_Click()
Dim i As Long, j As Long
For i = 1 To 100
Text1.Text = i
For j = 1 To 100000: DoEvents
Next
Next
Text1.Text = "Done"
End Sub
'可以改变DoEvents的位置看看