Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        position(0, 0) = lbl1
        position(0, 1) = lbl2
        position(0, 2) = lbl3
        position(1, 0) = lbl4
        position(1, 1) = lbl5
        position(1, 2) = lbl6
        position(2, 0) = lbl7
        position(2, 1) = lbl8
        position(2, 2) = lbl9


        lbl(1) = lbl1
        lbl(2) = lbl2
        lbl(3) = lbl3
        lbl(4) = lbl4
        lbl(5) = lbl5
        lbl(6) = lbl6
        lbl(7) = lbl7
        lbl(8) = lbl8
        lbl(9) = lbl9


        lblBoard2(2, 2) = lblBoard

        s(1) = lblH1
        s(2) = lblh2
        s(3) = lblH3
        s(4) = lblh4
        s(5) = lblh5
        s(6) = lblH6
        s(7) = lblH7
        s(8) = LblH8
        s(9) = lblH9

        For i = 1 To 9
            lbl(i).Visible = False
        Next

        For i = 1 To 9
            lbl(i).Text = 0
        Next

        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

        Dim k As Integer
        For k = 1 To 9
            s(k).Top =

        Next
    End Sub