通过单选按纽的选定改变文本框内的字体
书上是这样的：
Private Sub Option1_Click()
Text1.FontName = "幼圆"
End Sub

Private Sub option2_click()
Text1.FontName = "隶书"
End Sub
Private Sub option3_click()
Text1.FontName = "宋体"
End Sub
Private Sub option4_click()
Text1.FontName = "黑体"
End Sub

不能运行，不知缺点什么，还是哪里错了？

书上还有一个大方框，把四个ＯＰＴＩＯＮ　ＢＵＴＴＯＮ框起来，上边写着＂选择字体＂，不知是什么控件？