For Each LoadMyPic In Me.Controls If TypeOf LoadMyPic Is PictureBox Then LoadMyPic.Image = ImageList1.Images(3) End If Next