A.Private Sub Command1_Click() CommonDialog1.DialogTitle="New
Title" CommonDialog 1.ShowPrinter End Sub
B.Private Sub Command1_Click() CommonDialog1.DialogTitle="New
Title" CommonDialog1.ShowFont End Sub
C.Private Sub Command1_Click() CommonDialog1.DialogTitle="New
Title" CommonDialog1.ShowOpen End Sub
D.Private Sub Command1.Click() CommonDialog1.DialogTitle="New
Title" CommonDialog1.ShowColor End Sub