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

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

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

End Sub

你的上一页,下一页?...是上一张,下一张的意思吗?..

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

你下一张是+
你上一张由5开始向下减不就行?..

Private Sub Command2_Click() '上一页

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

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

晕..我是说你a=a+1这个.由5开始向下减.

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

用一个Slider1做计数器
Private Sub Command1_Click()
Slider1.Value = Slider1.Value + 1
Text1.Text = Slider1.Value

End Sub

Private Sub Command2_Click()
Slider1.Value = Slider1.Value - 1
Text1.Text = Slider1.Value
End Sub

Private Sub Form_Load()

End Sub

对你真是无言..