[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

        

[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

[lkaam]

شكراً لك 
لمسات جميلة