Dim Pfad as String = "c:\Test\Bild1.tif"
        Dim CodecInfo As System.Drawing.Imaging.ImageCodecInfo = GetEncoderInfo( _
          "image/jpeg")
 
        ' Ein Encoder-Objekt auf Basis des Quality-Parameters erstellen.
        Dim Enc As System.Drawing.Imaging.Encoder = _
          System.Drawing.Imaging.Encoder.Quality
        System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
 
        ' Ein Array erstellen, das alle Encoding-Parameter beinhaltet.
        ' In diesem Fall beinhaltet es nur den Quality-Parameter.
        Dim EncParams As New System.Drawing.Imaging.EncoderParameters(1)
 
 
        ' Bild in den Speicher laden.
        Dim Image As Image = System.Drawing.Image.FromFile(Pfad)
 
        ' Neuen Dateinamen erstellen.
        Dim JpgName As String
 
        ' Datei als JPG-Datei mit Qualitätslevel 100 speichern.
 
        EncParams.Param(0) = New System.Drawing.Imaging.EncoderParameter(Enc, _
          100L)
        JPGName = Pfad & ".jpg"
        'Datei als JPG speichern
 
        Image.Save(JpgName, CodecInfo, EncParams)