Resize event example for Access 2.0

This example demonstrates the Resize event. Before using this example you must add a text box to your form. Then, you can exercise this example by coding a command button that changes the width and height of the Lead1 control.

Sub LEAD1_Resize ()
    Text1.Value = "Control size: " + CStr(Me![LEAD1].Width) + " x " + CStr(Me![LEAD1].Height)
End Sub