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.

OLE1.AppIsRunning = True
Lead1.GetServerBitmap OLE1.LpOleObject
Lead1.Flip
Lead1.SetServerBitmap OLE1.LpOleObject