Protected Sub btnSEND_Click(sender As Object, e As EventArgs) Handles btnSEND.Click
        Dim X(4), Y(4) As Integer
        Dim i, j, A, B As Integer
        Dim Count As Integer = Session("COUNT")

        ResetAll()
        For i = 1 To 4
            X(i) = Session("A" & i.ToString())
            Y(i) = Session("B" & i.ToString())
        Next

        A = 0
        B = 0
        For i = 1 To 4
            For j = 1 To 4
                If X(i) = Y(j) Then
                    If i = j Then
                        A = A + 1
                    Else
                        B = B + 1
                    End If
                End If

            Next
        Next

        Count = Count + 1
        Select Case Count
            Case 1
                LG1.Text = ""
                For i = 1 To 4
                    LG1.Text = LG1.Text & Y(i).ToString()
                Next
                LR1.Text = A.ToString() & "A" & B.ToString() & "B"
            Case 2
                LG2.Text = ""
                For i = 1 To 4
                    LG2.Text = LG2.Text & Y(i).ToString()
                Next
                LR2.Text = A.ToString() & "A" & B.ToString() & "B"
            Case 3
                LG3.Text = ""
                For i = 1 To 4
                    LG3.Text = LG3.Text & Y(i).ToString()
                Next
                LR3.Text = A.ToString() & "A" & B.ToString() & "B"
            Case 4
                LG4.Text = ""
                For i = 1 To 4
                    LG4.Text = LG4.Text & Y(i).ToString()
                Next
                LR4.Text = A.ToString() & "A" & B.ToString() & "B"
            Case 5
                LG5.Text = ""
                For i = 1 To 4
                    LG5.Text = LG5.Text & Y(i).ToString()
                Next
                LR5.Text = A.ToString() & "A" & B.ToString() & "B"
            Case 6
                LG6.Text = ""
                For i = 1 To 4
                    LG6.Text = LG6.Text & Y(i).ToString()
                Next
                LR6.Text = A.ToString() & "A" & B.ToString() & "B"
            Case 7
                LG7.Text = ""
                For i = 1 To 4
                    LG7.Text = LG7.Text & Y(i).ToString()
                Next
                LR7.Text = A.ToString() & "A" & B.ToString() & "B"
            Case 8
                LG8.Text = ""
                For i = 1 To 4
                    LG8.Text = LG8.Text & Y(i).ToString()
                Next
                LR8.Text = A.ToString() & "A" & B.ToString() & "B"
            Case 9
                LG9.Text = ""
                For i = 1 To 4
                    LG9.Text = LG9.Text & Y(i).ToString()
                Next
                LR9.Text = A.ToString() & "A" & B.ToString() & "B"
            Case 10
                LG10.Text = ""
                For i = 1 To 4
                    LG10.Text = LG10.Text & Y(i).ToString()
                Next
                LR10.Text = A.ToString() & "A" & B.ToString() & "B"
        End Select

        Session("COUNT") = Count
        'Response.Write(A(1) & A(2))
    End Sub

    Sub ResetAll()
        Session("no") = 0
        L_O1.Text = "x"
        L_O2.Text = "x"
        L_O3.Text = "x"
        L_O4.Text = "x"
        btn0.Enabled = True
        btn1.Enabled = True
        btn2.Enabled = True
        btn3.Enabled = True
        btn4.Enabled = True
        btn5.Enabled = True
        btn6.Enabled = True
        btn7.Enabled = True
        btn8.Enabled = True
        btn9.Enabled = True
    End Sub