Private Sub SaveToJpeg(ByVal bmp As Bitmap, ByVal fileName As String, ByVal _
  compression As Integer)
    ' Codec ermitteln
    Dim codec As Imaging.ImageCodecInfo = Nothing
    For Each ici As Imaging.ImageCodecInfo In _
      Imaging.ImageCodecInfo.GetImageEncoders()
      If ici.MimeType.Equals("image/jpeg") Then
        codec = ici
        Exit For
      End If
    Next
    ' Kompression in Qualität umrechnen
    Dim quality As Integer = 100 - compression
    ' EncoderParameter festlegen
    Dim ep As New Imaging.EncoderParameters(1)
    ep.Param(0) = New Imaging.EncoderParameter(Imaging.Encoder.Quality, quality)
    ' Speichern
    bmp.Save(fileName, codec, ep)
  End Sub

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7