求助vb中有关Picture控件问题

切换多幅图片，用的是如下语句
Private Sub Timer1_Timer()
Static a As Integer
a = a + 1
If a > 6 Then a = 1
Picture1.Picture = LoadPicture(App.Path & "\" & a & ".jpg")
End Sub

但是由于图片太多，我想把它们放到一个名为picture的文件夹中，并且，将这个文件夹放在d盘下，那这个load语句改怎么改啊
谢谢大家，
当然还是能够要切换多幅图片的，图片名从1.一直到20.

---

用绝袜唯对路径就行数枯了。
Picture1.Picture = LoadPicture("D:\告毕培picture\" & a & ".jpg")

---

Picture1.Picture = LoadPicture( "d:\picture\" & a & ".jpg")

---