Sub LogicalMethods(imageFile1 As String, imageFile2 As String, imageFileOut As String)
' Create objects and open input images
Dim Ci As New CiServer
Dim Tools As CiTools: Set Tools = Ci.CreateTools
Tools.Image.Open imageFile1
Dim Image As CiImage: Set Image = Ci.CreateImage
Image.Open imageFile2
' Do processing
Dim x, y: x = 20: y = 20
Tools.AndImage Image, x, y
x = x + Tools.Image.Width / 5 + 20
y = y + Tools.Image.Height / 5 + 20
Tools.OrImage Image, x, y
x = x + Tools.Image.Width / 5 + 20
y = y + Tools.Image.Height / 5 + 20
Tools.XorImage Image, x, y
x = x + Tools.Image.Width / 5 + 20
y = y + Tools.Image.Height / 5 + 20
Tools.PasteImage Image, x, y
' Save results
Tools.Image.SaveAs imageFileOut, ciEXT
End Sub