Private Sub cmdcc_Click()

Dim X As String

X = MsgBox("Ban muon thoat?", vbOKCancel + vbQuestion + vbDefaultButton1, "Thong bao!")

If X = vbOK Then

End

End If

End Sub

Private Sub cmdok_Click()

If opt1.Value = True Then

Select Case opt1.Caption

Case "Word": Shell ("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe")

Case "Dao vang": Shell ("D:\game\flash\Dao vang2.exe")

End Select

End If

If opt2.Value = True Then

Select Case opt2.Caption

Case "Excel": Shell ("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.exe")

Case "Xe may": Shell ("D:\game\flash\xemay.exe")

End Select

End If

If opt3.Value = True Then

Select Case opt3.Caption

Case "Power Point": Shell ("C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.exe")

Case "Pikachu": Shell ("D:\game\flash\Pokemon.exe")

End Select

End If

End Sub

Private Sub Form_Load()

cboct = "Office"

End Sub

Private Sub Timer1_Timer()

Select Case cboct

Case "Office":

frachon.Caption = "Office"

opt1.Caption = "Word"

opt2.Caption = "Excel"

opt3.Caption = "Power Point"

Case "Games":

frachon.Caption = "Games"

opt1.Caption = "Dao vang"

opt2.Caption = "Xe may"

opt3.Caption = "Pikachu"

End Select

End Sub