A.Private Sub Commandl_Click() CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowPrinter End Sub
B.Private Sub Command1_Click() CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowFont End Sub
C.Private Sub Commslld1_CUck() CommonDialog1.DialogTifie="NewTitle" CommonDialog1.ShowOpen End Sub
D.PrivateSubCommand1_Click() CommonDialog1.DialogTitle”NewTitle” CommonDialog1.ShowColor End Sub