Private Function PictureBox(ByVal index As Integer) As PictureBox
Return DirectCast(Me.Controls("PictureBox" & index.ToString), PictureBox)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = PictureBox(2).Image
End Sub
End Class
