Working with image in Vb.net (Re-size image, Crop image, Compress Image)

Re-size Image

Private Function ResizeImage(ByRef image As Image, _

                                        ByVal size As Size, _

                                        Optional ByVal preserveAspectRatio As Boolean = True) As Image

        Dim newWidth As Integer

        Dim newHeight As Integer

        Try

            If preserveAspectRatio Then

                Dim originalWidth As Integer = image.Width

                Dim originalHeight As Integer = image.Height

                Dim percentWidth As Single = CSng(size.Width) / CSng(originalWidth)

                Dim percentHeight As Single = CSng(size.Height) / CSng(originalHeight)

                Dim percent As Single = If(percentHeight < percentWidth, percentHeight, percentWidth)

                newWidth = CInt(originalWidth * percent)

                newHeight = CInt(originalHeight * percent)

            Else

                newWidth = size.Width

                newHeight = size.Height

            End If

            Dim newImage As Image = New Bitmap(newWidth, newHeight)

            Using graphicsHandle As Graphics = Graphics.FromImage(newImage)

                graphicsHandle.InterpolationMode = InterpolationMode.HighQualityBicubic

                graphicsHandle.DrawImage(image, 0, 0, newWidth, newHeight)

            End Using

            image = newImage

            Return newImage

        Catch ex As Exception

            Throw

        End Try

    End Function

Crop Image

Public Function CropBitmap(ByVal bitmap As Bitmap, ByVal cropX As Integer, ByVal cropY As Integer, ByVal cropWidth As Integer, ByVal cropHeight As Integer) As Bitmap

        Try

            Dim rect As New Rectangle(cropX, cropY, cropWidth, cropHeight)

            Dim cropped As Bitmap = bitmap.Clone(rect, bitmap.PixelFormat)

            Return cropped

        Catch ex As Exception

         Throw

        End Try

 End Function

Compress Image

Public Shared Function CompressImageTo16BMP(ByVal img As Image) As Bitmap

        Try

        Dim bmp As Bitmap = New Bitmap(img.Width, img.Height, System.Drawing.Imaging.PixelFormat.Format16bppRgb555)

        Dim gr As Graphics = Graphics.FromImage(bmp)

        gr.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height))

        Return bmp

        Catch ex As Exception

            Throw

        End Try

End Function