请教：我的file1中有71个图片文件名，运行下面程序时，为什么只显示前27张后就不再显示？谢谢。

Dim i%


Private Sub Form_Load()

Me.WindowState = 2
Me.Timer1.Interval = 10
File1.Path = "E:\360data\重要数据\我的文档\我的图片"
For i = 1 To File1.ListCount - 1
Load Picture1(i)
Picture1(i).Visible = True


Picture1(i).Picture = LoadPicture(File1.Path & "\" & File1.List(i))
Picture1(i).Move i * Picture1(0).Width, Picture1(0).Top

Next
End Sub



Private Sub Timer1_Timer()
For i = 0 To File1.ListCount - 1
 Picture1(i).Left = Picture1(i).Left - 100
Next
End Sub

Private Sub Timer1_Timer()
For i = 0 To File1.ListCount - 1
 Picture1(i).Left = Picture1(i).Left - 100
Next
End Sub

显示完了你没看到吧~~~，你的Me.Timer1.Interval = 10
移动的应该是很快的~~