[求助bestfeng斑主]请指教:如何实现下一页,上一页

我在ImageList1有５张图片，我只会写下一页代码，请指教:上一页代码如何写．谢谢了！！！

Private Sub command1_Click()
Static a As Integer
a = a + 1
Ima0.Picture = ImageList1.ListImages(a Mod 5 + 1).Picture

End Sub

是上一张,下一张的意思!

Private Sub Command2_Click() '上一页

Static a As Integer
a = a + 1
Ima0.Picture = ImageList1.ListImages(a Mod 5 - 1).Picture
End Sub

是这样写吗?可是不行呀 ! 出现错误'35600'

是a = 5-a 吗?
不行呀!

我本想在此向各位大师请教,但我失望了........

谢谢bestfeng

我在 ImageList1 放５张图片，不是数据库!

Private Sub command1_Click()'下一页
Static a As Integer
a = a + 1
Ima0.Picture = ImageList1.ListImages(a Mod 5 + 1).Picture

End Sub

这是压缩的文件

[URL=http://www.gaoweb.com/1.rar]http://www.gaoweb.com/1.rar[/URL]

谢谢版主purana!

我刚学ＶＢ能得到版主指教非常感谢，以后会经常麻烦版主.
祝版主工作顺利，万事如意！

我的信箱：deargaoweb@yahoo.com.cn