A.Private Sub Command1_Click() CommonDialogl. DialoqTitle="New File" CommonDialogl. ShowPrinter End Sub B.Private Sub ComJRandl_Click() CommonDialogl. DialogTitle="New File" CommonDialogl. ShowFont End Sub C.Private Sub Command1_Click() CommonDialogl. DialogTitle="New File" CommonDialogl. ShowOpen End Sub D.Private Sub Command1_Click() CommonDialogl. DialogTitle="New File" CommonDialogl. ShowColor End Sub