I've written a Foxpro 8.0 program which uses a menu. The menu opens a modal type form containing a grid which displays the contents of a table. The form has no code.

Run the program. From the menu, open the form. Move the mouse to the grid, click the MS Mouse wheel, and move the mouse down to scroll the table. If I close the form to return to the menu, the menu locks up, forcing me to end task. The funny part is that the menu works perfectly fine if I change the form type to be Modeless, which I can't do as the form I'm working on returns a value. I can use the _MSYSMENU, but that, for some reason, causes strange crashes. Also, it introduces a series of complexity I rather not be bothered with. Any of you have any other idea on fixing this. Below is the program which calls the menu.

&&&&&&&&&&&&&&&& MAIN PROGRAM &&&&&&&&&&&&&&&&&&&&
PUBLIC gl_InMenu
SET MULTILOCKS ON && for buffering
gl_InMenu = .T.
DO p2_init_menus
DO WHILE gl_InMenu
ACTIVATE SCREEN
ACTIVATE MENU g_menu1
ENDDO
RETURN

*-------------------------------------------------
PROCEDURE p1_quit
gl_InMenu = .F.
DEACTIVATE MENU g_menu1
RETURN

*-------------------------------------------------
PROCEDURE p2_init_menus
DEFINE MENU g_menu1 IN SCREEN
DEFINE PAD pd_dmm1 OF g_menu1 PROMPT "\ DEFINE POPUP pd_dmm11
DEFINE BAR 1 OF pd_dmm11 PROMPT " (1) Add/Edit Products "
ON PAD pd_dmm1 OF g_menu1 ACTIVATE POPUP pd_dmm11
ON SELECTION POPUP pd_dmm11 DO FORM by_form1
DEFINE PAD pd_quit OF g_menu1 PROMPT "\ ON SELECTION PAD pd_quit OF g_menu1 DO p1_quit
RETURN