vb连续加载图片问题

想设置个按钮点下加载一张图片我想加载很多张有顺序的图片用个什么程序加载图片用相对路径（Image1.Picture = LoadPicture(App.Path & "\资料\agzn.jpg")）

假设你有10张图片，名字分别为image1.jpg、image2.jpg……image10.jpg

放个picturebox控件和timer到窗体里燃态，皮漏源搜仿并加如下代码即可实现序列图连续显示在picture控件里，至于显示的速度可以通过Timer1.Interval属性来设置，数字越大越慢，1000表示1秒

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = 10 Then i = 1
Picture1.Picture = LoadPicture(App.Path & "\image" & i & ".jpg")
End Sub