Vaše image.save() snižuje kvalitu obrázku (pokud je uložen jako Jpeg) na výchozí úroveň komprese přibližně 75 %.
Přečtěte si prosím tento článek MSDN o zvýšení této úrovně kvality, když zavoláte Uložit předáním myEncoderParameters, který obsahuje úroveň kvality na mnohem vyšší úrovni (řekněme 90 %)
http://msdn.microsoft.com /cs-us/library/system.drawing.imaging.encoder.quality.aspx
Nebo se podívejte na (netestovaný) kód níže, to by mělo stačit
' 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)