AutoSize example for Visual Basic

Note: Also works with Access 95 and 97.

This example shows how the AutoSize property works when loading and when rotating an image.

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