关于imagelist控件的一个问题

Question

我在一个窗体上放了20个image控件（image(1)到image(20)
我在imagelist里面存了20个图像，我现在想把imagelist里的图像按顺序依次放在这20个image控件中，请问怎么做？代码怎么写？

Answer 1

Private Sub Command1_Click()
For i = 1 To 20
    Image(i).Picture = Me.ImageList1.ListImages(i).Picture
Next
End Sub

Answer 2

Image(i).Picture = Me.ImageList1.ListImages(i).Picture