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 *****************
© 1998 - 2011 Terry Wickenden
Site developed, maintained and hosted by TKW Design. This site is best viewed at 1024 x 768. Optimised for Firefox.