A.Pdvate Sub Commandl_click() CommonDialogDialogTitle="New Title" CommonDialogShowPrinter End Sub B.Private Sub Cormnandl_click() CommonDialogDialogTitle="New Title" CommonDialogShowFont End Sub C.Private Sub Commandl_click() CommonDialogDialogTitle="New Title" CommonDialogShowOpen End Sub D.Pfivate Sub Commandl_click() CommonDialogDialogTitle="New Title" CommonDialogShowColor End Sub