单项选择题

下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel 键退出对话框，则（ ）。 　　Private Sub Command1_Click( ) 　　CommonDialogl．CancelError=True 　　CommonDialogl．Flags=cdlCFEffects Or cdlDFBotb 　　CommonDialogl．Action=4 　　CommonDialogl．ShowFont 　　Text1.Font.Name=CommonDialogl．FontName 　　Text1．Font．Size=CommonDialogl．FontSize 　　Text1．Font．Bold=CommonDialog1．FontBold 　　Text1．Font．Italic=CommonDialog1．FontItalic 　　Text1．Font．Underline=CommonDialog1．FontUnderline 　　Text1．FontStrikethru=CommonDialog1．FontStrikethru 　　Text1．ForeColor=CommonDialog1．Color 　End Sub