在vb中动态创建多个图片框

Private Sub btnCreatePictureBox_Click(sender As Object, e As EventArgs) Handles btnCreatePictureBox.Click
    Dim numPictureBoxes As Integer = 5 '要创建的图片框数量

    For i As Integer = 1 To numPictureBoxes
        Dim pictureBox As New PictureBox()
        pictureBox.Name = "pictureBox" & i.ToString() '设置图片框的名称
        pictureBox.Size = New Size(100, 100) '设置图片框的大小
        pictureBox.Location = New Point(10 + (i - 1) * 110, 10) '设置图片框的位置
        pictureBox.SizeMode = PictureBoxSizeMode.StretchImage '设置图片框的显示模式
        pictureBox.Image = Image.FromFile("路径\图片文件名.jpg") '设置图片框显示的图片

        Me.Controls.Add(pictureBox) '将图片框添加到窗体的控件集合中
    Next
End Sub