Private Sub mnusave_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件|*.*|"
CommonDialog1.ShowSave
RichTextBox1.SaveFile CommonDialog1.FileName, 1 '这个1是什么意思啊??
End Sub

谢谢