フィールドをWクリックしたらズームさせる

'フィールドをWクリックしたらズームさせる
Private Sub ZOOM_FIELD_DblClick(Cancel As Integer)
	DoCmd.RunCommand acCmdZoomBox
End Sub