VB中用image打开的图片文件怎样实现“另存为”

在工程——部件，里面添加“Microsoft Common Dialog Control”控件
在工具箱里添加到窗体中。

在按钮里添加下面代码：
With CommonDialog1
.Filter = "BMP位图(*.bmp)|*.bmp"
.ShowSave
SavePicture Image1.Picture, .FileName
End With