Создать массив из PictureBoxов

Dim oldX, oldY As Integer
Dim isDragging As Boolean
 
Sub PictureBox1MouseDown(sender As Object, e As MouseEventArgs)
    isDragging = True
    oldX = e.X
    oldY = e.Y
End Sub
 
Sub PictureBox1MouseUp(sender As Object, e As MouseEventArgs)
    isDragging = False
End Sub
 
Sub PictureBox1MouseMove(sender As Object, e As MouseEventArgs) 
    If isDragging Then
        pictureBox1.Top = pictureBox1.Top + (e.Y - oldY)
        pictureBox1.Left = pictureBox1.Left + (e.X - oldX)
    End If
End Sub

        a(0) = New PictureBox
        a(0).Image = PictureBox2.Image
        a(1) = New PictureBox
        a(1).Image = PictureBox3.Image
        a(2) = New PictureBox
        a(2).Image = PictureBox4.Image
        a(3) = New PictureBox
        a(3).Image = PictureBox5.Image