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 *****************