>>143
を参考にして書いたのですが
行き詰まりました。

Dim i As Integer
i = ImageList1.Images.Count
Dim aa() As String = {"PictureBox0", _
"PictureBox1", _
"PictureBox2", _
"PictureBox3", _
"PictureBox4"}
Dim bb As PictureBox
bb.Name = aa(i)
For i = 0 To 17
aa(i).Image = ImageList1.Images(i)
Next
これじゃダメみたいです。
どなたか訂正お願いします。