Dim save = New SaveFileDialog()
save.Filter = "Bitmap files (*.bmp)|*.bmp|JPG files (*.jpg)|*.jpg|GIF files (*.gif)|*.gif|All files (*.*)|*.*"
save.FilterIndex = 4
save.RestoreDirectory = True
If (save.ShowDialog() = DialogResult.OK) Then
PictureBox1.Image.Save(save.FileName)
End If
İlk olarak bir "save" değişkeni oluşturduk. Bu değişkeni "SaveFileDialog" olarak tanımladık.
Daha sonra "SaveFileDialog" özelliklerini ayarladık, sadece "bmp,jpg,gif" olarak kayıt etmeyi ayarladık.
Eğer "SaveFileDialog" hazır olduğunda, yani yer seçildiğinde, Picturebox1'de bulunan resim kayıt olacaktır.