Prevent vertical scrolling via the mouse wheel or keyboardTag(s): Datawindow
For the wheel, declare an user event, ue_noscroll, mapped to pbm_vscroll.
[ue_noscroll] // prevent vertical scrolling return 1
[ue_dwnkey] CHOOSE CASE key CASE KeyEnter!,KeyPageUp!,KeyPageDown!,KeyUpArrow!,KeyDownArrow! This.AcceptText() RETURN 1 END CHOOSE RETURN 0