Private Sub Command1_Click()

Randomize

Dim A As Integer

A = Int(3 * Rnd() + 1)

Select Case A

Case 1:

If O1.Value = True Then

L2 = "BAÏN ÑAÕ HOØA"

Else

    If O2.Value = True Then

    L2 = "BAÏN ÑAÕ THAÉNG"

    Else

        If O3.Value = True Then

        L2 = "BAÏN ÑAÕ THUA"

        End If

        End If

        End If

        Case 2:

        If O1.Value = True Then

L2 = "BAÏN ÑAÕ THUA"

Else

    If O2.Value = True Then

    L2 = "BAÏN ÑAÕ HOØA"

    Else

        If O3.Value = True Then

        L2 = "BAÏN ÑAÕ THAÉNG"

        End If

        End If

        End If

        Case 3:

        If O1.Value = True Then

L2 = "BAÏN ÑAÕ THAÉNG"

Else

    If O2.Value = True Then

    L2 = "BAÏN ÑAÕ THUA"

    Else

        If O3.Value = True Then

        L2 = "BAÏN ÑAÕ HOØA"

        End If

        End If

        End If

        End Select

End Sub

Private Sub Command2_Click()

If MsgBox("Ban muon thoat khong???", vbYesNo + 16 + vbDefaultButton1, "THOÂNG BAÙO") = vbYes Then

End

End If

End Sub