Random pictureboxen

Hallo,

Ik heb een formulier met daarop 30 pictureboxen. Begint met pciturebox1. tot met picturebox30.
Deze staan in volgorde van 1 t/m 30.
Ik zou graag willen als ik op een button klik dat de pictureboxen door elkaar heen komen te staan.
Ik zou kunnen hutselen met de afbeeldngen maar dat is niet de bedoeling, bovendien heeft elke picture box een tag.
Wie heeft een suggestie?

Vriendelijke groet

De volgende code heb ik even gemaakt voor 5 pictureboxen. Uiteraard is dit gemakkelijk uit te breiden naar 30.

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim lokatie(5) As Point

lokatie(0) = New Point(50, 50)
lokatie(1) = New Point(160, 50)
lokatie(2) = New Point(270, 50)
lokatie(3) = New Point(380, 50)
lokatie(4) = New Point(490, 50)

Dim picBoxNaam() As Control
Dim picBox As PictureBox

Dim objRandom As New Random
Dim getal As Integer
Dim getallenReeks As String = ""

For i = 1 To 5
picBoxNaam = Controls.Find("PictureBox" & i.ToString, True)
picBox = DirectCast(picBoxNaam(0), PictureBox)

Do
'zoek random naar nieuwe positie
getal = objRandom.Next(0, 5)
Loop While InStr(getallenReeks, getal.ToString) > 0

'sla getal op in reeks, zodat gecontroleerd kan worden of dit getal al is gebuikt
getallenReeks = getallenReeks & getal.ToString

picBox.Location = lokatie(getal)

Next

End Sub
End Class


Een en ander heb ik gevonden in het boek 'Visual Basic voor Beginners' welke te vinden is op : http://visual-basic-voor-beginners.nl