GetServerBitmap example for Visual Basic

This example copies a bitmap from a LEAD OLE Server, flips the bitmap, then copies the bitmap back to the server. To test this example, you must add an OLE control to your form and specify LEAD Image as the object type.

Dim RasterIO As New LEADRasterIO
Dim RasterProc As New LEADRasterProcess
OLE1.AppIsRunning = True
RasterIO.GetServerBitmap LEADRasterView1.Raster, OLE1.LpOleObject
RasterProc.Flip LEADRasterView1.Raster
RasterIO.SetServerBitmap LEADRasterView1.Raster, OLE1.LpOleObject