[lkaam]

كود :

Try
           Dim savefile As SaveFileDialog = New SaveFileDialog()
           savefile.DefaultExt = "jpg"
           savefile.Filter = "All files*.*|*.*"
           If savefile.ShowDialog() = DialogResult.OK Then
               PictureBox3.Image.Save(savefile.FileName)
           End If
       Catch ex As Exception
           MsgBox(ex.ToString())
       End Try