想在多个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

Option Explicit

Private Sub Form_Load()
  Timer1.Enabled = True
  Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
  Static i As Integer
  If i <= 15 Then
     Picture1(i).BackColor = &HC0C0FF
  Else
     For i = 0 To 15
         Picture1(i).Visible = False
     Next
  End If
  i = i + 1
End Sub