下列程序的作用是使用字体对话框修改文本框字体的样式，完成下列程序。
Private Sub Command1_Click()
CommonDialog1.CanceIError=True
On ErrorGo To ErrHandler
CommonDialog1.Flags=vbCFEffects Or vbCFBoth
CommonDialog1.______
Text1.Font Name=CommonDialog1.FontName
Text1.Font.Size=______
Text1.Font.Bold=CommonDialog, FontBold
Text1.Font.Italic=CommonDialog1Fontltalic
Text1.Font.Underline=______
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Exit Sub
ErrHandler：
End Sub