[...]
 
              Dim codec As ImageCodecInfo = ImageCodecInfo.GetImageEncoders( _
                ).First(Function(c) c.MimeType = "image/jpeg")
 
                Dim parameters As New EncoderParameters(4)
                parameters.Param(0) = New EncoderParameter( _
                  System.Drawing.Imaging.Encoder.Quality, 60)
                parameters.Param(1) = New EncoderParameter( _
                System.Drawing.Imaging.Encoder.ScanMethod, CInt( _
                EncoderValue.CompressionLZW))
                parameters.Param(2) = New EncoderParameter( _
                System.Drawing.Imaging.Encoder.ScanMethod, CInt( _
                EncoderValue.RenderProgressive))
                parameters.Param(3) = New EncoderParameter( _
                System.Drawing.Imaging.Encoder.RenderMethod, CInt( _
                EncoderValue.RenderProgressive))
 
                bmp.Save(txtExportverzeichnis.Text & "\" & filName, codec, _
                  parameters)
                bmp = Nothing
 
[...]