Dim oMagic = New MagickImage(canvas)
                    Dim Org = New MagickImage(Image)
                    For Each pp As String In Org.ProfileNames
                        oMagic.AddProfile(Org.GetProfile(pp))
                    Next
                    oMagic.Write(OutFile)
                    Org.Dispose()
                    oMagic.Dispose()
                    canvas.Dispose()