VB 加载图像问题~高手拣分了~~！！！！！！

希望将下面程序改成 输出所有格式图片 现在只是JPG的~

Dim i As Integer, iCount As Long
Private Sub Form_Load()
i = 1

File1.Visible = False
File1.Path = "D:\My Documents\My Pictures\"
File1.Pattern = "*.*"
Text1.Text = Val(File1.ListCount)
End Sub

Private Sub Timer1_Timer()
iCount = Val(Text1.Text)
Timer1.Interval = 1000
Picture1.Picture = LoadPicture("D:\My Documents\My Pictures\" & i Mod iCount & ".jpg")
i = i + 1
If i > iCount Then i = i Mod iCount
End Sub
调试不成功~ 当循环至最后一张时，出现错误！！麻烦修改一下

vb图片加载问题.... VB加载dll 问题？ VB图片加载问题。。。。。。。。 VB问题，高手请进。答对再加分 vb加载图片出现问题 applet加载和显示图像问题 vb问题，高手帮忙下，谢谢了 vb初学者问题（高手帮忙解决追加50分） vb初学问题（高手帮忙）追加50分 vb简单问题请高手帮忙（追加50分）