今天学习了刘金玉老师零基础VB教程的第74期，学习的主要内容是如何使用doevents。
1.doevents作用就是把操作权限转给操作系统，一般在处理处理事件大量数据的时候使用，好处就是系统界面不会卡顿，提升用户使用程序的体验效果。
2.补充知识：While....Wend循环，当满足条件时候一直执行某个指令。写为：
While 满足的条件
执行的指令
wend
例如：
While n>0
N=n+1
Wend
表示的是当n大于0时候，在n的初始值上不断加1。
3.需要注意的是当执行doevents代码时候，直接关闭window窗体并不能结束程序运行，后台仍然在运行，需要我们在Private Sub Form_Unload事件中写入end语句或停止执行的条件。
案例：制作一个不断增长变化的数据效果
Dim XXX As Boolean
Private Sub Command1_Click()
XXX = True
Dim I As Long
While XXX
Text1.Text = Val(Text1.Text) + 1
DoEvents
Wend
End Sub
Private Sub Command2_Click()
XXX = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
效果详见视频