引用：http://zhidao.baidu.com/question/23514100.html

CommonDialog1.Filter = "bmpfile|*.bmp"
CommonDialog1.FileName = ""
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
 SavePicture Picture1.Image, CommonDialog1.FileName
End If