通过单选按纽的选定改变文本框内的字体
书上是这样的：
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

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

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

程序是没有错的````我想原因是你的VB里没有"幼圆"和"隶书"这二个字体

你把那两个字体改成你VB里有的字体,如"新宋体","楷体_GB2312"我想因该就可以了``