Ihr image.save() reduziert die Qualität des Bildes (wenn es als JPEG gespeichert wird) auf die Standardkomprimierungsstufe von etwa 75 %.
Bitte lesen Sie diesen MSDN-Artikel zum Erhöhen dieser Qualitätsstufe, wenn Sie Save aufrufen, indem Sie myEncoderParameters übergeben, die eine Qualitätsstufe auf einer viel höheren Stufe enthalten (z. B. 90 %).
http://msdn.microsoft.com /en-us/library/system.drawing.imaging.encoder.quality.aspx
Oder sehen Sie sich den (ungetesteten) Code unten an, der ausreichen sollte
' 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)
