A.Private Sub Command1_Click() CD1.DialogTitle="通用对话框" CD1.ShowPrinter End Sub B.Private Sub Command1_Click() CD1.DialogTitle="通用对话框" CD1.ShowFont End Sub C.Private Sub Command1_Click() CD1.DialogTitle="通用对话框" CD1.ShowOpen End Sub D.Private Sub Command1_Click() CD1.DialogTitle="通用对话框" CD1.ShowColor End Sub