Vb.net 根据列表框项目的数量向窗体添加控件

我知道了如何根据添加到列表框中的项目数向表单中添加控件

    ListBox1.Items.Add(TextBox1.Text)
    TextBox1.Text = ""

    For i As Integer = 0 To ListBox1.Items.Count - 1

        'adds picturebox for as many listbox items added
        Dim MyPictureBox As New PictureBox()
        MyPictureBox.Location = New Point(25, 25)
        MyPictureBox.Size = New Size(15, 15)
        MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
        Me.Controls.Add(MyPictureBox)
        MyPictureBox.Image = My.Resources.PDF_Info

    Next i

我似乎不知道如何添加第二个控件，而是将其添加到表单上的另一个位置

因此，第一个条目将把picturebox放在25，25，当我输入第二个条目时，它将在45，45等处创建另一个picturebox

---

这可以做到吗？

它将是这样的

  ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
Dim x As Integer = 25
For i As Integer = 0 To ListBox1.Items.Count - 1

    'adds picturebox for as many listbox items added
    Dim MyPictureBox As New PictureBox()
    MyPictureBox.Location = New Point(x, x)
    MyPictureBox.Size = New Size(15, 15)
    MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
    Me.Controls.Add(MyPictureBox)
    MyPictureBox.Image = My.Resources.PDF_Info
    x += 25
Next i

ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
Dim p as Integer = 25

For i As Integer = 0 To ListBox1.Items.Count - 1
    'adds picturebox for as many listbox items added
    Dim MyPictureBox As New PictureBox()
    MyPictureBox.Location = New Point(p , p)
    MyPictureBox.Size = New Size(15, 15)
    MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
    Me.Controls.Add(MyPictureBox)
    MyPictureBox.Image = My.Resources.PDF_Info
   'add 20  to the current position of the control
   p = p + 20

Next i

---

如果希望控件定位在表单中的点45,45，请添加+20。非常感谢…感谢您的帮助。