谁能帮小弟我修改一下下面的程序，使它能显示完小弟我的71张最大化的图片（下面程序只能显示前16张）

哪位高手能帮我修改一下下面的程序，使它能显示完我的71张最大化的图片（下面程序只能显示前16张）。

VB code

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

[解决办法]
Me.Timer1.Interval = 10　间隔太短了吧……１０毫秒
你debug.print一下File1.ListCount 看看