SetSrcClipRect example for Access 2.0

This example crops the image by reducing the source clipping area and repaints the image.

OldLeft = Me![LEAD1].Object.SrcClipLeft
OldTop = Me![LEAD1].Object.SrcClipTop
OldWidth = Me![LEAD1].Object.SrcClipWidth
OldHeight = Me![LEAD1].Object.SrcClipHeight
NewLeft = OldLeft + (OldWidth * .1)
NewTop = OldTop + (OldHeight * .1)
NewWidth = OldWidth * .8
NewHeight = OldHeight * .8
If (NewWidth > 1) AND (NewHeight >1) Then
   Me![LEAD1].Object.SetSrcClipRect NewLeft, NewTop, NewWidth, NewHeight
End If
Me![LEAD1].Object.ForceRepaint