vb中做到文字快速变动的效果

我是用在vba中的（office的宏vb）我要做到文字快速变动效果，例如在1个Label内，100秒，每秒出现一个数字（1-100），我要让肉眼能看到文字在快速变动。。。。我试过循环+sleep，一循环就未响应了。。。直到最后的数字出现才响应（也就是循环结束才响应）

我发现WORD里面的VB跟VB6没差别.太好写了

Private Sub UserForm_Click()
Do
If Me.Label1.Caption < 100 Then Me.Label1.Caption = Me.Label1.Caption + 1 Else Exit Do
DoEvents '释放控制,程序就不会卡死
Call Delay(1) '廷时1秒
Loop
End Sub

Private Sub UserForm_Initialize()
Me.Label1.Caption = 1
End Sub

Private Sub Delay(ByVal Dt As Long) '廷时过程
Dim nt As Single
Dim t As Single

nt = Timer

Do
t = Timer - nt
DoEvents '释放控制,程序就不会卡死
Loop Until t >= Dt
End Sub

Private Sub Timer1_Timer() Dim bcolor As Integer For bcolor = 1 To 15 Label1.BackColor = RGB((255 * Rnd) + 1, (255 * Rnd) + 1, (255 * Rnd) + 1) Next End Sub

这个你参考去吧，有问题再找我！