本人有个问题，也不知道怎样分类，请大家帮帮忙吧（本人菜鸟）

Question

我编了个VB的程序，我现在想让我的界面好一点就变了个动画的小程序
Private Sub Timer1_Timer()
Dim i_Count As Integer
'Dim i_CountDisplay As Integer
'For i_Count = 1 To 9
'Image1(i_Count).Visible = False
'Next
If (i_CountDisplay > 9) Then
i_CountDisplay = 1
End If
Image1(i_CountDisplay).Visible = TrueIf (i_CountDisplay = 1) Then
Image1(9).Visible = False
Else
Image1(i_CountDisplay - 1).Visible = False
End If
i_CountDisplay = i_CountDisplay + 1
End Sub
我在我的主程序中 就是用了Timer1.Enabled = True
但都是我的主程序执行过程中，没有显示我的动画到结束才显示，但是这不是我想要的效果，我想等主程序结束时，这个动画也结束（主程序是查找程序）
请各位大侠指点！在此谢谢了.

Answer 1

在主程序中间加等待，把时间让给timer
比如 doevent

Answer 2

我的主程序用一个按钮的Click事件控制
Private Sub FindButton_Click()
Timer1.Enabled = TrueDim i As Integer
i = 0
For i = 0 To 5'//////////////////////////////////////////////
If i = 0 Then
......
Timer1.Enabled = False
end sub我加了do events还是不行