[alma2]

بارك الله فيك على هذا الكود

تصحيح بسيط اذا سمحت لي

كود :

Try
            If PictureBox3.Image IsNot Nothing Then
                Dim savefile As New SaveFileDialog()
                savefile.DefaultExt = "jpg"
                savefile.Filter = "jpg files *.jpg|*.jpg"
                If savefile.ShowDialog() = DialogResult.OK Then
                    PictureBox3.Image.Save(savefile.FileName, Imaging.ImageFormat.Jpeg)
                End If
            Else
                MsgBox("لا توجد صورة لحفظها")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try