一、运行效果：
1、没有DoEvents时运行（出现未响应）：
2、有DoEvents时运行（没有未响应）：
\
二、关键点
****1、DoEvents函数，将控制权交给系统，防止无限循环。
2、将下面程序中的“if”语句删除试试两种效果有何不一样。
\
三、程序代码
Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer '申明计数器
i = 0 '设置计数器初值
Do While 1 = 1 '无限循环
i = i + 1 '计数器计数
If i > 1000 Then
DoEvents '交给系统
End If
Loop
End Sub
\
