Private Sub Check1_Click()
     Text1.FontBold = Not Text1.FontBold
End Sub

Private Sub Check2_Click()
     Text1.FontItalic = Not Text1.FontItalic
End Sub

Private Sub Combo1_Change()
     Text1.FontSize = Val(Combo1.Text)
End Sub
Private Sub List1_Click()
     Text1.FontName = List1.Text
End Sub

Private Sub Option1_Click()
     Text1.ForeColor = Option1.BackColor
End Sub

Private Sub Option2_Click()
     Text1.ForeColor = Option2.BackColor
End Sub

Private Sub Option3_Click()
     Text1.ForeColor = Option3.BackColor
End Sub

Private Sub Option4_Click()
     Text1.ForeColor = Option4.BackColor
End Sub

Private Sub Option5_Click()
     Text1.BackColor = Option5.BackColor
End Sub

Private Sub Option6_Click()
     Text1.BackColor = Option6.BackColor
End Sub

Private Sub Option7_Click()
     Text1.BackColor = Option7.BackColor
End Sub

Private Sub Option8_Click()
     Text1.BackColor = Option8.BackColor
End Sub

[ 本帖最后由 风流不羁 于 2014-5-4 20:30 编辑 ]

你是按我的代码做的吗？？？