A.Private Sub Command1_Click( ) CommonDislog1.FileName="SaveFile" CommonDialog1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc" CommonDialog1.FUterlndex=2 CommonDialog1.DialogTitle="Save" CommonDi810S1.Action=2 End Sub B.Pnrate Sub Command1_Click( ) CommonDialog1.FileNamc="SaveFile" CommonDialog1.Filtcr="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc" commonDislog1.Filterlndex=1 CommonDialog1.DialogTitle="Save" CommonDialog1.AcUon=2 End Sub C.Private Sub Command1_C1ick( ) CommonDialog1.FileName="Saven" CommonDislog1.Filter="All Files|*.*I(*.txt)I*.txt(*.doc)1*.doc" CommonDislog1.Fiterlndex=2 Commondislog1.DialogTide="SaveFile" CommonDialog1.Action=2 End Sub D.PnvateSubCommarldl_C1ick( ) CommonDialog1.FUeName="SaveFile" CommonDialog1.Filter="All Files|*.*I(*.txt)|*.txt|(*.doc)|*.doc" CommonDialog1.Filterlndex=1 CommonDialog1.DislogTitle="SaveFile" CommonDialog1.Achon=1 End Sub