请教：我用下面代码加载了图片，想让整排图片逐渐向左移动，该怎样做？谢谢。

Question

Dim i%
Private Sub Form_Load()
Me.WindowState = 2
File1.Path = "E:\360data\重要数据\我的文档\我的图片"
For i = 1 To File1.ListCount - 1
Load Picture1(i)
Picture1(i).Visible = TruePicture1(i).Picture = LoadPicture(File1.Path & "\" & File1.List(i))
Picture1(i).Move i * Picture1(0).Width, Picture1(0).TopNext
End Sub

Answer 1

用定时器，过一段时间移一次，修改Picture1(i)的left属性

Answer 2

添加一个定时器控件
sub timer1_timer
static m as long '不要无限移动，用m控制移动次数dim pic as picturebox
m=m+1
if m<100 then '假设移动100次
for each pic in Picture1
pic.left=pic.left-n'n为你期望的每次移动距离，n定义为窗口变量，如果指定负数可以向右移动
next
else
timer1.enable=false
m=0'为下次激活定时器做准备
end ifend sub