Dim compressione As Imaging.Encoder
        Dim ratio As Imaging.EncoderParameter
        Dim codecParams As Imaging.EncoderParameters
        Dim imgCodec As Imaging.ImageCodecInfo

        compressione = Imaging.Encoder.Compression
        ratio = New Imaging.EncoderParameter(compressione, System.Drawing.Imaging.EncoderValue.CompressionCCITT4)

        codecParams = New Imaging.EncoderParameters(1)
        codecParams.Param(0) = ratio

        imgCodec = GetImageCodec(ImageType)

        Try
            currentImage.Save(FilePath, imgCodec, codecParams)
            Return True
        Catch ex As Exception
            Return False
        Finally
            ratio.Dispose()
            codecParams.Dispose()
            compressione = Nothing
            ratio = Nothing
            codecParams = Nothing
            imgCodec = Nothing
        End Try