为什么不发工程代码？保密？

请帮的修改一下，下面的程序，使它能来回切换.
Private Sub Form_Load()
 Option1.Value = True
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then Text1.FontName = "宋体"
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then Text1.FontBold = True

End Sub

Private Sub Option3_Click()
 if option3.Value = True text1.FontItalic=True
End Sub

改了用复选按钮，不要使用单选按钮。
事件里不但有if then，还要有else

增加一个单选按钮，把这4个单选按钮组成一个控件数组，这只要把它们的名称都改为Option1，把它们的Index属性依次设置为0、1、2、3就可以了，再把它们的Caption属性依次设置为：常规、粗体、斜体、粗斜体，把Index=0的那个单选按钮的Value属性设置为True，其它均设置为False，最后使用如下代码：

Private Sub Option1_Click(Index As Integer)
With Text1.Font
  Select Case Index
    Case 0: .Bold = False: .Italic = False
    Case 1: .Bold = True: .Italic = False
    Case 2: .Bold = False: .Italic = True
    Case 3: .Bold = True: .Italic = True
  End Select
End With
End Sub

谢谢大侠们啦

啊？复选只用两个啊

还是数组好使呀