关于在多个PICTURE中每隔0.5s填入底色的代码
想在多个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
