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

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

End Sub

[此贴子已经被作者于2006-12-13 21:01:40编辑过]