单项选择题

下列程序的功能是:调用字体对话框来设置文本框中的字体,单击Command1按钮弹出对话框,进行相应的字体、字号等的设置,然后单击。“确定”按钮退出对话框,则将发生哪些变化( )。
Private Sub Command1_Click()
CommonDialogl.CancelError=True
CommonDialogl.Flags=3
On Error Resume Next
CommonDialogl.ShowFont
Textl.Font.Name=CommonDialogl.FontName
Textl.Font.Size=CommonDialogl.FontSize
Textl.Font.Bold=CommonDialogl.FontBold
Textl.Font.Italic=CommonDialogl.FontItalic
Textl.Font.Underline=CommonDialogl.FontUnderline
Textl.FontStrikethru=CommonDialogl.FontStrikethru
Textl.ForeColor=CommonDialogl.Color
End Sub

A.Text1的字体不发生变化
B.Text1的字体发生变化
C.Text1的字体和颜色发生变化
D.程序出错