vba中的DoEvents应用

DoEvents
在大运算量循环内，DoEvents可以防止界面停止响应

Dim a As Integer
Randomize
Do
a = Rnd * 160 + 1
TextBox1.Text = a
DoEvents
Loop

pt = 0.01: st = Timer
Do While Timer < st + pt
DoEvents
Loop