想在多个PICTURE中，每隔0.5s，逐个在PICTURE填入底色，就象有的软件的启动时进度条一样，其代码如下（当然是不对的），请大侠修改，谢谢。
Option Explicit
Dim i As Integer

Private Sub Form_Load()
For i = 0 To 8
  Timer1.Interval = 1000
Next i
End Sub

Private Sub Timer1_Timer()
Picture1(i).BackColor = &HC0C0FF
End Sub