vb中如何用timer控件 控制两幅或多幅图片的可示属性??

我想用一个timer 控制两幅图片的visable 属性
意思是 当picture1 可示时,picture2 不可示 ,当picture2可示时 picture1 不可示 .如此交替.
(答案正确我会给追加分!)

Private Sub Form_Load()
Picture1.Visible = True
Picture2.Visible = False
End Sub

Private Sub Timer1_Timer()
Picture1.Visible = Not Picture1.Visible
Picture2.Visible = Not Picture2.Visible
End Sub

'添加一个image控件 并将其做成控件数组（下标分别为：0 1 2） 一个timer控件 设置interval=100 示例代码如下： private sub form_load() for i = 1 to 2 image1(i).left = image1(0).left image1(i).top = image1(0).top next i end sub private sub timer1_timer() static index as integer image1(index).zorder 0 index = index + 1 if index > 2 then index = 0 end sub