This example displays a zoom box for a control. To use the code, create a button on the form and paste the code into the On Click event.
'************ Start of Code ***************** 'Code courtesy of Terry Kreft Sub cmdZoom_Click() Screen.PreviousControl.SetFocus RunCommand acCmdZoomBox End Sub '************** End of Code *****************
Return to Example List