GetServerBitmap example for Access 95 and 97

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.Verb = acOLEVerbHide
OLE1.Action = acOLEActivate
Lead1.GetServerBitmap OLE1.LpOleObject
Lead1.Flip
Lead1.SetServerBitmap OLE1.LpOleObject