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, "THONG BAO") = vbYes Then End End If End Sub