请问谁能帮我一下，我想做一个图片滚动效果，图片头尾相连的滚动，不间断的

添加timer控件，用时间来控制啊

我想知道怎么控制，我现在做的都只是图片滚动完以后才出现图片首

我使用 Image1(N) 来放各个图片,我程序里是建了5个图片.图片是事先载入的,也可以用程序读取.
Image1(N)是放在 Picture1 里的,这样的好处是可以设置滚动区域.
另还有一个时间控件,控制前进速度 ,坐标单位用的默认的 缇

Option Explicit 
 
Const 总个数 = 4 
 
Dim 顺序(0 To 总个数) As Long 
 
Private Sub Form_Load() 
Dim i As Long 
 
顺序(0) = 0                 '被始化顺序 
Image1(i).Left = 100        '被始化起始坐标 
For i = 1 To 总个数         '依次排列各个图片 
    顺序(i) = i 
    Image1(i).Left = Image1(i - 1).Left + Image1(i - 1).Width 
Next i 
End Sub 
 
Private Sub Timer1_Timer() 
 
'向左移动 
Dim i As Long, j As Long 
 
If Image1(顺序(0)).Left < -Image1(顺序(0)).Width Then 
'如果向左移出的,刚变换一下顺序 
    j = 顺序(0) 
    For i = 1 To 总个数 
        顺序(i - 1) = 顺序(i) 
    Next i 
    顺序(总个数) = j        '把第一个调到最后去 
     
    '把位置也调到最后去,图像连成一线,用于图像比滚动区域要大 
    'Image1(j).Left = Image1(顺序(3)).Left + Image1(顺序(3)).Width 
     
    '把位置调到最后去,图像按滚动区域调整位置 
    Image1(j).Left = Picture1.Width 
End If 
 
    '向左移动 
For i = 0 To 总个数 
    Image1(顺序(i)).Left = Image1(顺序(i)).Left - 30 
Next i 
 
End Sub