一、运行效果：

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