资源图像只能从exe保存。使用“savefiledialog”控件获取文件名。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.ShowDialog()
End Sub
Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
My.Resources.Image2.Save(SaveFileDialog1.FileName, Drawing.Imaging.ImageFormat.Gif)
End Sub