PictureBox1.Image.Save("C:\CapturaPantalla.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

Public Sub salvarimagen(ByVal caja As PictureBox)
        If caja.Image Is Nothing = False Then
            Using salvador As New SaveFileDialog
                salvador.InitialDirectory = Application.StartupPath & "\Imagenes\"
                salvador.Filter = " BITMAP|*.bmp| JPEG|*.jpeg|JPG|*.jpg|GIF|*.gif|PNG|*.png"
                salvador.Title = "guardar como"
                If salvador.ShowDialog = DialogResult.OK Then
                    If salvador.FileName.Substring(salvador.FileName.LastIndexOf("."c) + 1) = "bmp" Then
                        caja.Image.Save(salvador.FileName, ImageFormat.Bmp)
                    ElseIf salvador.FileName.Substring(salvador.FileName.LastIndexOf("."c) + 1) = "jpeg" Or salvador.FileName.Substring(salvador.FileName.LastIndexOf("."c) + 1) = "jpg" Then
                        caja.Image.Save(salvador.FileName, ImageFormat.Jpeg)
                    ElseIf salvador.FileName.Substring(salvador.FileName.LastIndexOf("."c) + 1) = "gif" Then
                        caja.Image.Save(salvador.FileName, ImageFormat.Gif)
                    ElseIf salvador.FileName.Substring(salvador.FileName.LastIndexOf("."c) + 1) = "png" Then
                        caja.Image.Save(salvador.FileName, ImageFormat.Png)
                    End If                  
                    caja.Image = Nothing                  
                Else                    
                End If
            End Using
        Else         
        End If
    End Sub