Shear example for Visual Basic

Note: Also works with Access 95 and 97.

This example shears the bitmap 5 degrees horizontally and redisplays the image. It uses blue as the fill color.

Dim RasterProc As New LEADRasterProcess
RasterProc.Shear LEADRasterView1.Raster, 500, True, RGB(0, 0, 255)
LEADRasterView1.ForceRepaint