AutoSize Example for Access 2.0

This example shows how the AutoSize property works when loading and when rotating an image. Note that in Access 2.0, this changes the display rectangles but does not resize the control.

Me![LEAD1].Object.AutoSize = True
Me![LEAD1].Object.Load "c:\lead\images\image1.cmp", 0, 0, 1
MsgBox "Control is sized to fit the loaded bitmap"
Me![LEAD1].Object.Rotate 4500, ROTATE_RESIZE, RGB(0, 0, 0)
MsgBox "Control is sized to fit the rotated bitmap"