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|(*.do C)|*.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|(*.do C)|*.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|(*.do C)|*.doc' CommonDialogl.FilterIndex=1 CommonDialog1.DialogTitle='Save' CommonDialog1.Action=1 End Sub