Combine example for Access 2.0

This example copies the Lead1 bitmap to Lead2, trims and filters the copied image, and combines the filtered image with the original Lead1 bitmap image. Trimming Lead2 lets you see the difference between filtered and nonfiltered regions.

DoCmd Hourglass True
Me![LEAD2].Object.Bitmap = Me![LEAD1].Object.Bitmap

TrimLeft = (Me![LEAD2].Object.BitmapWidth * 0.2)
TrimTop = (Me![LEAD2].Object.BitmapHeight * 0.2)
TrimWidth = (Me![LEAD2].Object.BitmapWidth * 0.6)
TrimHeight = (Me![LEAD2].Object.BitmapHeight * 0.6)
Me![LEAD2].Object.Trim TrimLeft, TrimTop, TrimWidth, TrimHeight

Me![LEAD2].Object.SpatialFilter (FLT_LINESEG_LTOR)

DstLeft = TrimLeft
DstTop = TrimTop
DstWidth = TrimWidth
DstHeight = TrimHeight
SrcObj = Me![LEAD2].Object.Bitmap
SrcLeft = 0
SrcTop = 0
Me![LEAD1].Object.Combine DstLeft, DstTop, DstWidth, DstHeight, SrcObj, SrcLeft, SrcTop, CB_OP_ADD

Me![LEAD1].Object.ForceRepaint
DoCmd Hourglass False