Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        Randomize()
        s(1) = lbl1
        s(2) = lbl2
        s(3) = lbl3
        s(4) = lbl4
        s(5) = lbl5
        s(6) = lbl6
        s(7) = lbl7
        s(8) = lbl8
        s(9) = lbl9

        For i = 0 To 9
            locations(i, 0) = s(i).Top
            locations(i, 1) = s(i).Left
        Next

        shuffle()
    End Sub


    Private Sub shuffle()
        Dim spots(9) As Integer
        For i = 1 To 9
            spots(i) = 0
        Next

        Dim rand As Integer
        rand = getRand(1, 9)
        For i = 1 To 9
            While spots(i) = 0
                If spots.Contains(rand) Then
                    MessageBox.Show("Contains")
                Else
                    spots(i) = rand
                    s(i).Top = locations(rand, 0)
                    s(i).Left = locations(rand, 1)
                End If
            End While
        Next

    End Sub

    Private Function getRand(ByVal lower As Integer, ByVal upper As Integer)
        Return Rnd() * (upper - lower) + lower
    End Function

    Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        Randomize()
        s(1) = lbl1
        s(2) = lbl2
        s(3) = lbl3
        s(4) = lbl4
        s(5) = lbl5
        s(6) = lbl6
        s(7) = lbl7
        s(8) = lbl8
        s(9) = lbl9

        For i = 0 To 9
            locations(i, 0) = s(i).Top
            locations(i, 1) = s(i).Left
        Next

        shuffle()
    End Sub


    Private Sub shuffle()
        Dim spots(9) As Integer
        For i = 1 To 9
            spots(i) = 0
        Next

        Dim rand As Integer
        rand = getRand(1, 9)
        For i = 1 To 9
            While spots(i) = 0
                If spots.Contains(rand) Then
                    MessageBox.Show("Contains")
                Else
                    spots(i) = rand
                    s(i).Top = locations(rand, 0)
                    s(i).Left = locations(rand, 1)
                End If
            End While
        Next

    End Sub

    Private Function getRand(ByVal lower As Integer, ByVal upper As Integer)
        Return Rnd() * (upper - lower) + lower
    End Function