Votre image.save() réduit la qualité de l'image (si elle est enregistrée au format Jpeg) au niveau de compression par défaut d'environ 75 %.
Veuillez consulter cet article MSDN sur l'augmentation de ce niveau de qualité, lorsque vous appelez Save en transmettant myEncoderParameters, contenant un niveau de qualité à un niveau beaucoup plus élevé (disons 90 %)
http://msdn.microsoft.com /en-us/library/system.drawing.imaging.encoder.quality.aspx
Ou voyez le code (non testé) ci-dessous, cela devrait faire l'affaire
' 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)