A.Private Sub Commandl_Click() Common Dialog1.DialogTitle="新标题" Common Dialog1.ShowFont End Sub B.Private Sub Commandl_Crick() CommonDialog1.DialogTifie="新标题" CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() Common Dialog1.DialogTitle="新标题" Common Dialog1.ShowClose End Sub D.Private Sub Commandl_Click() CommonDialogl.DialogTitle="新标题" CommonDialogl.ShowColor End Sub