Dim a(10) As PictureBox

        Dim i As Integer = 0

        For Each b As PictureBox In a

            b = New PictureBox

            b.Size = New Size(30, 30)

            b.Location = New Point(50, i * 50)

            b.Image = PictureBox1.Image

            Me.Controls.Add(b)

            i += 1

        Next