SetSrcRect example for Visual Basic

Note: Also works with Access 95 and 97.

This example zooms in on the image by reducing the source rectangle and repaints the image.

' Declare local variables
Dim NewLeft, NewTop, NewWidth, NewHeight
NewLeft = LEADRasterView1.SrcLeft+ (LEADRasterView1.SrcWidth * 0.1)
NewTop = LEADRasterView1.SrcTop + (LEADRasterView1.SrcHeight * 0.1)
NewWidth = LEADRasterView1.SrcWidth * 0.8
NewHeight = LEADRasterView1.SrcHeight * 0.8
If (NewWidth > 1) AND (NewHeight >1) Then
   LEADRasterView1.SetSrcRect NewLeft, NewTop, NewWidth, NewHeight
End If
LEADRasterView1.ForceRepaint