DIB example for Access 2.0

This example copies the Lead1 bitmap to the clipboard as a DIB. It pastes the DIB into Lead2 and reverses the image. It then gets a DIB from Lead2, sets the same DIB to Lead1, and repaints.

DoCmd Hourglass True
MyFlags = COPY_EMPTY + COPY_DIB + COPY_PALETTE
Me![LEAD1].Object.Copy MyFlags
Me![LEAD2].Object.Paste 0
Me![LEAD2].Object.Reverse
MyDib = Me![LEAD2].Object.GetDIB
Me![LEAD1].Object.SetDIB MyDib
Me![LEAD1].Object.ForceRepaint
DoCmd Hourglass False