open the zoom dialog box by code?

[Lim]

Hi

How can I open a zoom dialog box via code?

I have a text box on a form and wish to open the zoom
dialog box for that field when double clicked.

While the following code works I don't want to use the
SendKeys

Private Sub Misc_Text_1_DblClick(Cancel As Integer)

SendKeys "+{F2}", True

End Sub

 

[Allen Browne]

Try:
RunCommand acCmdZoomBox