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

本人才学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