SaveJPEG Quality Property

    Private Sub SaveJpeg(ByVal IMG As Bitmap, ByVal Path As String, ByVal Quality As Byte)
        Dim jpgEncoder As ImageCodecInfo = Nothing
        Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageDecoders()
        For Each codec As ImageCodecInfo In codecs
            If codec.FormatID = ImageFormat.Jpeg.Guid Then jpgEncoder = codec
        Next
        Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality
        Dim myEncoderParameters As New EncoderParameters(1)
        Dim myEncoderParameter As New EncoderParameter(myEncoder, Quality)
        myEncoderParameters.Param(0) = myEncoderParameter
        IMG.Save(Path, jpgEncoder, myEncoderParameters)
    End Sub