'zuerst den codec für jpg suchen
        Dim CodecList() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders
        Dim TheCodec As ImageCodecInfo
        For Each act As ImageCodecInfo In CodecList
            If act.FilenameExtension.Contains(AviableFiles( _
              ShownIndex).Extension.ToUpper()) Then
                TheCodec = act
                Exit For
            End If
        Next act
        If TheCodec Is Nothing Then MsgBox("Das geänderte Bild kann nicht" & _
          "gespeichert werden, weil für das Format " & AviableFiles( _
          ShownIndex).extension.toupper() & " kein Encoder installiert ist") : _
          Exit Sub
 
        'dann einen encoder festlegen
        Dim parms As New EncoderParameters(1)
        parms.Param(0) = New EncoderParameter(Encoder.Transformation, _
          EncoderValue.TransformRotate90)
        ShownImage.Save(AviableFiles(ShownIndex).fullname, TheCodec, parms)