Private Sub C1_Click()

If c1.ListIndex = 0 Then

f1.Visible = True

f2.Visible = False

Else

f2.Visible = True

f1.Visible = False

End If

End Sub

Private Sub cm1_Click()

If o1.Value = True Then

Shell ("C:\Program Files\Microsoft Office\OFFICE11\winword.EXE")

Else

If o2.Value = True Then

Shell ("C:\Program Files\Microsoft Office\OFFICE11\excel.EXE")

Else

If o3.Value = True Then

Shell ("C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE")

End If

End If

End If

End Sub

Private Sub co2_Click()

If MsgBox("Baïn muoán thoaùt khoâng", vbYesNo + 32 + vbDefaultButton1, "Thoâng Baùo") = vbYes Then

End

End If

End Sub

Private Sub Form_Load()

f1.Visible = False

f2.Visible = False

End Sub