请检查VB错误

Private Sub Command1_Click()
Text1.Text = "框架简介"
End Sub

Private Sub Command2_Click()
Text1.Text = ""
End Sub

Private Sub Option1_Click()
Option1.Value = 1
Text.Font = "@仿宋"
End Sub

Private Sub Option2_Click()
Text1.Font = "黑体"
End Sub

Private Sub Option3_Click()
Text1.ForeColor = &HFF&
End Sub

Private Sub Option4_Click()
Text1.ForeColor = &HFF00&
End Sub

Private Sub Text1_Change()

End Sub

Private Sub Option1_Click()
Option1.Value = 1
Text.Font = "@仿宋"
End Sub
里面的
Text.Font = "@仿宋"
改为
Text1.Font = "@仿宋"

对 同一一下楼上的 你的确只有这个错误
但是有几个问题：
1.字体正常情况应该是比如“仿宋”不是“@仿宋”除非你要求的显示方式是这样 而且你后面一个写“黑体”，那么一般来说前面的就是仿宋不是@仿宋
2.如果两个Option在同一容器里面的话 OptionX.Value = 1 可以省去
3. 没有了。
综上：改错以后代码是：

Private Sub Command1_Click()
Text1.Text = "框架简介"
End Sub

Private Sub Command2_Click()
Text1.Text = ""
End Sub

Private Sub Option1_Click()
Text1.Font = "仿宋"
End Sub

Private Sub Option2_Click()
Text1.Font = "黑体"
End Sub

Private Sub Option3_Click()
Text1.ForeColor = &HFF&
End Sub

Private Sub Option4_Click()
Text1.ForeColor = &HFF00&
End Sub

Private Sub Command1_Click()
Text1.Text = "框架简介"
End Sub