Вашият image.save() намалява качеството на изображението (ако е запазено като Jpeg) до нивото на компресия по подразбиране от около 75%.
Моля, вижте тази статия в MSDN за увеличаване на това ниво на качество, когато извиквате Save чрез предаване на myEncoderParameters, съдържащо ниво на качество на много по-високо ниво (да кажем 90%)
http://msdn.microsoft.com /en-us/library/system.drawing.imaging.encoder.quality.aspx
Или вижте (нетествания) код по-долу, който трябва да свърши работа
' Create a a single encoder parameter envelope
Dim EncoderParameters As New EncoderParameters(1)
' Create and add a single quality parameter to this envelope, specifying 95%
Dim QualityParam As New EncoderParameter(Encoder.Quality, CType(95L, Int32))
EncoderParameters.Param(0) = QualityParam
' Save the image with the encoder param specifying 95% quality
_image.Save(_MemoryStream, _ImageFormat, EncoderParameters)