Ресурсные изображения можно просто сохранить из 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