A. Private Sub Command1_Click ( ) CommonDialog1.FileName="SaveFile" CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="Save" CommonDialog1.Action=2 End Sub B. Private Sub Command1_Click ( ) CommonDialog1.FileName="SaveFile" CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc" CommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle="Save" CommonDialog1.Action=2 End Sub C. Private Sub Command1 Click ( ) CommonDialog1.FileName="Save" CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="SaveFile" CommonDialog1.Action=2 End Sub D. Private Sub Command1 Click ( ) CommonDialog1.FileName="SaveFile" CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc" CommonDialogl.FilterIndex=1 CommonDialog1.DialogTitle="Save" CommonDialog1.Action=1 End Sub