Public Function Duplicate() As CiImage

Public Sub T_ImageMisc(ByRef Img As CiImage)
  Dim Img1 As CiImage, ImgZone As CiImage
    ' Invert test
  Img.Invert
    ' Duplicate test
  Set Img1 = Img.Duplicate
  Set ImgZone = Img1.CreateZone(Img.Width / 3, Img.Height / 3, _
                Img.Width * 2 / 3, Img.Height * 2 / 3)
    ' Clear test
  ImgZone.Clear
    ' Copy Test
  Img.Copy Img1
End Sub