Increasing indexnumbers of PictureBox's names used in a loop?

Hello guys.

In my Form, I have a bunch of PictureBoxes named:
PictureBox0 PictureBox1 PictureBox2 PictureBox3
... and so on.

I want to store all those PictureBoxe's Locations in a New List (Of Point).

Can this be done in a Loop somehow since all the PictureBoxes ends with an increasing indexnumber?

Sort of like this:

Code:

---

Dim Santa As New List (Of Point)

For i = 0 To 3 Do
Santa.Item(i) = PictureBox(i).Location
Next

---

Sorry if I can't explain it well enough.