关于vb实现自动播放图片的问题

[hqhcqhao]

本人才学vb，希望实现用vb自动播放图片的效果，编写代码如下，但是有错，不知是那里出错，希望那个高手帮我解决一哈，谢谢！
Dim i As Integer
Private Sub Form_Load()
File1.Path = "g:\桌面美化\壁纸"
File1.Pattern = "*.gif;*.jpg;*.bmp;*.png;*.ico"
i=1
End Sub

Private Sub Timer1_Timer()
Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(i))
i = i + 1
If i = File1.ListCount Then i=1:Timer1.Enabled = False
End Sub
'另外我的interval为100

[hqhcqhao]

谢谢！

[yoyorll]

在timer函数里面把i定义成static试试

[qhzxdjzx]

假设你一共有n组图，每按一次，获得一个1到n之间的随机数，然后加载这个数对应的图就ok了