VB 请教高手

Dim a, b, c As Integer
Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Form_Load()
Image1(0).Height = Picture1(0).Height
Image1(0).Width = Picture1(0).Width
Image1(0).Left = 0
Image1(0).Top = 0

Image1(1).Height = Picture1(0).Height
Image1(1).Width = Picture1(0).Width
Image1(1).Left = 0
Image1(1).Top = 0

Image1(2).Height = Picture1(0).Height
Image1(2).Width = Picture1(0).Width
Image1(2).Left = 0
Image1(2).Top = 0
End Sub

 

End Sub

Private Sub Timer1_Timer()

If a > 2 Then
  a = 0
Else
  Image1(0).Picture = Imagehuan(a).Picture
  a = a + 1
End If

If b > 3 Then
  b = 1
Else
  Image1(1).Picture = Imagehuan(b).Picture
  b = b + 1
End If

If c > 4 Then
  c = 2
Else
  Image1(2).Picture = Imagehuan(c).Picture
  c = c + 1
End If

End Sub

 

 

 

设计个三张图片互换的程序 我设计的这个 总是运行1 到2秒后 三张一起换一样的图

是为什么啊

三张互换？弄3个计数变量 a,b,c初始a=0 b=1 c=2 然后定时中断是 都加1 大于等于3的赋0 然后根据计数变量弄图片 怎么可能会重复么