Use this code:
Dim g As Graphics = Graphics.FromImage(YourBitmap)
g.SmoothingMode = SmoothingMode.HighQuality
g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.PixelOffsetMode = PixelOffsetMode.HighQuality
And when saving use this:
Dim myParams As EncoderParameters = New EncoderParameters(1)
myParams.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 80)
YourBitmap.Save(YourPath, GetEncoderInfo(MimeType), myParams)
This is GetEncoderInfo function:
Public Function GetEncoderInfo(ByVal MimeType As String) As ImageCodecInfo
Dim j As Integer
Dim encoders As ImageCodecInfo()
encoders = ImageCodecInfo.GetImageEncoders()
j = 0
Do While j < encoders.Length
If encoders(j).MimeType = MimeType.Trim.Replace("pjpeg", "jpeg") Then
Return encoders(j)
End If
j += 1
Loop
Return Nothing
End Function