A.Prirate Sub Commandl Click() CommonDialogDialogTitle="new Caption" CommonDialogShowFont End Sub B.Private Sub Commandl+Click() CommonDialogDialogTitle="new Caption" CommonDialogShowOpen End Sub C.Private Sub Commandl_Click() CommonDialogDialogTitle="new Caption" CommonDialogShowHelp End Sub D.Private Sub Commandl_Click() CommonDialogDialogTitle="new Caption" CommonDialogShowColor End Sub