VB进程条的简单问题

------------

Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
End Sub

Private Sub Timer1_Timer()
Static i, s As Integer
i = i + 1
If i >= 100 Then
Timer1.Enabled = False
End If
ProgressBar1 = i

End Sub
-----------------------------

如何把进程条改成重复开始的？

就是，进程条满了后，继续重新开始~

-------------------------------

Private Sub Timer1_Timer()
Static i, s As Integer
i = i + 1
If i >= 100 Then

i=0
Timer1.Enabled = False
End If
ProgressBar1 = i

End Sub

Private Sub Timer1_Timer()
Static i, s As Integer
i = i + 1
If i > 100 Then    '改下
i=0    '这两句就行了

End If
ProgressBar1 = i

End Sub