For Each pb In Me.Controls.OfType(Of PictureBox) pb.Image = ACB.Image Next
For Each pb In Me.Controls.OfType(Of PictureBox) If pb.Name.StartWith("PictureBox") Then pb.Image = ACB.Image End If Next