Image Cropping with Image Resizing Using VB.NET

   Using bm As New Bitmap(some control.Image)
     Dim encp = New Imaging.EncoderParameters(1)
     encp.Param(0) = New Imaging.EncoderParameter(Imaging.Encoder.Quality, 99L)
     bm.Save(some file, jpegICI, encp)
   End Using

<pre lang="vb">Public Function SavePhoto(ByVal src As Image, ByVal dest As String, ByVal w As Integer) As Boolean
        MessageBox.Show("Save Photo function is triggered")
        Try
            Dim imgTmp As System.Drawing.Image
            Dim imgFoto As System.Drawing.Bitmap
            imgTmp = src
            imgFoto = New System.Drawing.Bitmap(w, 225)
            Dim recDest As New Rectangle(0, 0, w, imgFoto.Height)
            Dim gphCrop As Graphics = Graphics.FromImage(imgFoto)
            gphCrop.SmoothingMode = SmoothingMode.HighQuality
            gphCrop.CompositingQuality = CompositingQuality.HighQuality
            gphCrop.InterpolationMode = InterpolationMode.High
            gphCrop.DrawImage(imgTmp, recDest, 0, 0, imgTmp.Width, imgTmp.Height, GraphicsUnit.Pixel)
            Dim myEncoder As System.Drawing.Imaging.Encoder
            Dim myEncoderParameter As System.Drawing.Imaging.EncoderParameter
            Dim myEncoderParameters As System.Drawing.Imaging.EncoderParameters
            Dim arrayICI() As System.Drawing.Imaging.ImageCodecInfo = System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
            Dim jpegICI As System.Drawing.Imaging.ImageCodecInfo = Nothing
            Dim x As Integer = 0
            For x = 0 To arrayICI.Length - 1
                If (arrayICI(x).FormatDescription.Equals("JPEG")) Then
                    jpegICI = arrayICI(x)
                    Exit For
                End If
            Next
            myEncoder = System.Drawing.Imaging.Encoder.Quality
            myEncoderParameters = New System.Drawing.Imaging.EncoderParameters(1)
            myEncoderParameter = New System.Drawing.Imaging.EncoderParameter(myEncoder, 60L)
            myEncoderParameters.Param(0) = myEncoderParameter
            imgFoto.Save(dest, jpegICI, myEncoderParameters)
            imgFoto.Dispose()
            imgTmp.Dispose()
 
        Catch ex As Exception
        End Try
    End Function

Private Sub crobPictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles crobPictureBox.MouseMove
        Try
 
            If crobPictureBox.Image Is Nothing Then Exit Sub
 
            If e.Button = Windows.Forms.MouseButtons.Left Then
                Dim l_X As Integer = e.X
                Dim l_Y As Integer = e.Y
                crobPictureBox.Refresh()
                cropWidth = Math.Abs(l_X - cropX)
                cropHeight = Math.Abs(l_Y - cropY)
                If cropX < l_X Then l_X = cropX
                If cropY < l_Y Then l_Y = cropY
                crobPictureBox.CreateGraphics.DrawRectangle(cropPen, l_X, l_Y, cropWidth, cropHeight)
                'crobPictureBox.CreateGraphics.DrawRectangle(cropPen, cropX, cropY, cropWidth, cropHeight)
            End If
            ' GC.Collect()

        Catch exc As Exception
 
            If Err.Number = 5 Then Exit Sub
        End Try
 
    End Sub

    Private Sub crobPictureBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles crobPictureBox.MouseUp
        Try
            Cursor = Cursors.Default
            Try
                If e.Button = Windows.Forms.MouseButtons.Left Then
                    If cropWidth < 1 Then Exit Sub
                    Dim l_X As Integer = e.X
                    Dim l_Y As Integer = e.Y
                    If cropX < l_X Then l_X = cropX
                    If cropY < l_Y Then l_Y = cropY
 
                    Dim rect As Rectangle = New Rectangle(l_X, l_Y, cropWidth, cropHeight)
                    'Dim rect As Rectangle = New Rectangle(cropX, cropY, cropWidth, cropHeight)
                    Dim bit As Bitmap = New Bitmap(crobPictureBox.Image, crobPictureBox.Width, crobPictureBox.Height)
 
                    cropBitmap = New Bitmap(cropWidth, cropHeight)
                    Dim g As Graphics = Graphics.FromImage(cropBitmap)
                    g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                    g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
                    g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
                    g.DrawImage(bit, 0, 0, rect, GraphicsUnit.Pixel)
                    PreviewPictureBox.Image = cropBitmap
                End If
            Catch exc As Exception
            End Try
        Catch exc As Exception
        End Try
    End Sub