Src... example for Visual Basic

Note: Also works with Access 95 and 97.

This example uses the source rectangle properties to zoom in on the image.

'Calculate the values to zoom in by 10 percent and center the image.
If (LEADRasterView1.SrcWidth > 1) And (LEADRasterView1.SrcHeight > 1) Then
  LEADRasterView1.SrcWidth = LEADRasterView1.SrcWidth * 0.9
  LEADRasterView1.SrcHeight = LEADRasterView1.SrcHeight * 0.9
  LEADRasterView1.SrcTop = (LEADRasterView1.Raster.BitmapHeight - LEADRasterView1.SrcHeight) / 2
  LEADRasterView1.SrcLeft = (LEADRasterView1.Raster.BitmapWidth - LEADRasterView1.SrcWidth) / 2
End If
'Set the clipping area to the same as the source rectangle
LEADRasterView1.SrcClipWidth = LEADRasterView1.SrcWidth
LEADRasterView1.SrcClipHeight = LEADRasterView1.SrcHeight
LEADRasterView1.SrcClipTop = LEADRasterView1.SrcTop
LEADRasterView1.SrcClipLeft = LEADRasterView1.SrcLeft
'Redisplay the image
LEADRasterView1.ForceRepaint