DDB example for Access 2.0

This example copies the Lead1 bitmap to the clipboard as a DDB. It pastes the DDB into Lead2 and reverses the image. It then gets a DDB from Lead2, sets the same DDB to Lead1, and repaints. Note that both Lead1 and Lead2 must be visible for this example to work.

DoCmd Hourglass True
MyFlags = COPY_EMPTY + COPY_DDB + COPY_PALETTE
Me![LEAD1].Object.Copy MyFlags
Me![LEAD2].Object.Paste 0
Me![LEAD2].Object.Reverse
MyDC = Me![LEAD2].Object.GetClientDC
MyDDB = Me![LEAD2].Object.GetDDB(MyDC)
MyPalette = Me![LEAD2].Object.GetPalette(MyDC)
Me![LEAD1].Object.SetDDB MyDC, MyDDB, MyPalette
Me![LEAD1].Object.ForceRepaint
Me![LEAD2].Object.ReleaseClientDC
DoCmd Hourglass False