Timer事件过程中的一个问题

下面是我编写的一段Timer的事件过程

在这个过程中必须用Static定义静态变量 i ,如果将其用Dim定义为动态变量,虽然程序整体没有错误,但是达不到预期的效果了.

Private Sub Timer1_Timer()

Static i As Integer

If i = 8 Then
i = 1
End If
i = i + 1

'执行imgbrid图片框水平向右移动
ImgBrid.Left = ImgBrid.Left + 60
If ImgBrid.Left > Me.ScaleWidth Then
ImgBrid.Left = Me.ScaleLeft - ImgBrid.Width
End If

Select Case i
Case 1
ImgBrid.Picture = ImgBrids(0).Picture
Case 2
ImgBrid.Picture = ImgBrids(1).Picture
Case 3
ImgBrid.Picture = ImgBrids(2).Picture
Case 4
ImgBrid.Picture = ImgBrids(3).Picture
Case 5
ImgBrid.Picture = ImgBrids(4).Picture
Case 6
ImgBrid.Picture = ImgBrids(5).Picture
Case 7
ImgBrid.Picture = ImgBrids(6).Picture
Case 8
ImgBrid.Picture = ImgBrids(7).Picture
End Select

End Sub