Dim rand As New Random
        Randomize()
        Dim found As Boolean
        Dim position2 As Integer
        For i = 1 To 9
            found = False
            Do
                position2 = 1 + rand.Next(9)
                If lbl(position2).Text = 0 Then
                    lbl(position2).Text = i
                    found = True
                End If
            Loop Until found
        Next