如何在VB程序中的TEXTBOX中用代码修改字体

先在窗口上放一个按钮控件(cmdFont,caption="字体")和一个Common
Diaglog控件，放哪里没有关系，执行时看不见的，
然后拷贝以下代码到编码窗口。
Private
Sub
cmdFont_Click
()
CommonDialog1.CancelError
=
True
On
Error
GoTo
ErrHandler
'设置
Flags
属性。
CommonDialog1.Flags
=
cdlCFBoth
Or
cdlCFEffects
'显示“字体”对话框。
CommonDialog1.ShowFont
'根据用户的选择来设置
'文本属性。
Text1.Font.Name
=
CommonDialog1.FontName
Text1.Font.Size
=
CommonDialog1.FontSize
Text1.Font.Bold
=
CommonDialog1.FontBold
Text1.Font.Italic
=
CommonDialog1.FontItalic
Text1.Font.Underline
=
CommonDialog1.FontUnderline
Text1.FontStrikethru
=
CommonDialog1.FontStrikethru
Text1.ForeColor
=
CommonDialog1.Color
Exit
Sub
ErrHandler:
'用户按了“取消”按钮。
Exit
Sub
End
Sub