VB的菜单栏的保存程序怎么写

CommonDialog1.ShowSave
只是为你提供一个保存的对话框
你要保存成什么格式 的保存哪些 就要看你的代码 了。 一楼的是保存text1.text的内容到 文本文件
至于保存 图片什么的 VB本身的功能好象 只能保存bmp格式！
保存其他的要写复杂的代码的

Private Sub Command1_Click()
On Error GoTo OnErr

CommonDialog1.DialogTitle = "请输入您需要保存的文件名"
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件|*.*"
CommonDialog1.CancelError = True
CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text;
Close

Exit Sub

OnErr:
If Err.Number <> cdlCancel Then Resume Next
End Sub