A.Private Sub Command2_Click() CommonDiNog1.DialogTitle="新时代" CommonDialog1.ShowOpen End Sub B.Private Sub Command2_Click() CommonDialog1.DialogTitle:"新时代" CommonDialog1.ShowFont End Sub C.Private Sub Command2_Click() CommonDialog1.DialogTitle="新时代" CommonDialog1.Show End Sub D.Private Sub Commanc2_Click() CommonDialog1.DialogTitle="新时代" CommonDialog1.ShowColor End Sub