你就不能这样保存么？ ↓
创新互联公司专注于企业营销型网站建设、网站重做改版、禄劝网站定制设计、自适应品牌网站建设、H5场景定制、电子商务商城网站建设、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为禄劝等各大城市提供网站开发制作服务。
Static SaveNumber as Integer
SaveNumber += 1
Dim SavePath as String = "C:\ytakqi" SaveNumber ".png"
bit.Save(SavePath)
可以用SaveFileDialog1对话框加上对文件数据操作的类来实现，，用richtextbox自己的属性方法也能行！我以前做过一个记事本程序就是那样的！
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'定义Word对象
Dim wordApp As New Word.ApplicationClass
'要转换的文件名
Dim fileName As Object = "E:\Test.doc"
'默认值
Dim miss As Object = System.Reflection.Missing.Value
'打开要转换的 DOC 文件
Dim doc As Word.Document = DirectCast(wordApp.Documents.Open(fileName, miss, miss, miss, miss, miss, _
miss, miss, miss, miss, miss, miss, _
miss, miss, miss, miss), Word.Document)
'转换后的文件名
fileName = "E:\testDoc.HTML"
'保存的文件格式
Dim saveFormat As Object = Word.WdSaveFormat.wdFormatHTML
'按文本文件保存
doc.SaveAs(fileName, saveFormat, miss, miss, miss, miss, _
miss, miss, miss, miss, miss, miss, _
miss, miss, miss, miss)
'关闭是否保存文件，这里为不保存
Dim changes As Object = False
'关闭文件
doc.Close(changes, miss, miss)
'退出 Word 应用程序
wordApp.Quit(changes, miss, miss)
End Sub
