A.Private Sub Commandl_Click() Common
Dialog1.DialogTitle="新标题" Common Dialog1.ShowFont End
Sub
B.Private Sub Commandl_Crick()
CommonDialog1.DialogTifie="新标题" CommonDialog1.ShowOpen
End Sub
C.Private Sub Commandl_Click() Common
Dialog1.DialogTitle="新标题" Common Dialog1.ShowClose End
Sub
D.Private Sub Commandl_Click()
CommonDialogl.DialogTitle="新标题" CommonDialogl.ShowColor
End Sub