Overloads Function CopyBitmap(ByVal source As Bitmap, ByVal part As Rectangle) _
   As Bitmap
        Dim bmp As New Bitmap(
            part.Width, part.Height)
        bmp.SetResolution(source.HorizontalResolution, _
          source.VerticalResolution)
        bmp.Palette = source.Palette
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
        g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
        g.DrawImage(source, 0, 0, part, GraphicsUnit.Pixel)
        g.Dispose()
        bmp = bmp.Clone(New Rectangle(0, 0, bmp.Width, bmp.Height), _
          source.PixelFormat)
        Return bmp
    End Function

 'Encoder Einstellen um das Bild wieder als richtiges Tiff speichern zu können
'Dim EnCodeFormat As ImageFormat = New ImageFormat(New Guid( 
' "b96b3cb1-0728-11d3-9d7b-0000f81ef32e"))
                        Dim myImageCodecInfo As ImageCodecInfo
                        Dim myEncoder As Encoder
                        Dim myEncoderParameter As EncoderParameter
                        Dim myEncoderParameters As EncoderParameters
                        ' Create a Bitmap object based on a BMP file.
                        ' Get an ImageCodecInfo object that represents the TIFF 
                        ' codec.
                        myImageCodecInfo = GetEncoderInfo( _
                          img.RawFormat.Guid.ToString)      
                        myEncoder = Encoder.Compression
                        myEncoderParameters = New EncoderParameters(1)
 
                        myEncoderParameter = New EncoderParameter(myEncoder, _
                          Fix(EncoderValue.CompressionNone))
                        myEncoderParameters.Param(0) = myEncoderParameter
 
'Und speichern
CutImage.Save(path & GetFileName(file), myImageCodecInfo, myEncoderParameters)