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

别失望啊，主要是你的问题不太明确，是调用imagelist里面 上一张，下一张图片呢，还是数据库。没看懂哦。

谢谢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]

Private a As Integer

Private Sub command1_Click()
a = a + 1
If a > 5 Then a = 5
Ima0.Picture = ImageList1.ListImages(a).Picture
End Sub

Private Sub Command2_Click()
a = a - 1
If a <= 0 Then a = 1
Ima0.Picture = ImageList1.ListImages(a).Picture
End Sub

谢谢版主purana!

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

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