PRB: READ MENU In DO..WHILE Loop Causes VFP Screen to Jump

MORE INFORMATION

Steps to Reproduce Behavior

Sample Code

   *-- Code begins here.
   PRIVATE menu1
   DECLARE menu1[3,2]
   menu1[1,1]=" Edit "
   menu1[1,2]=''
   menu1[2,1]=" Browse "
   menu1[2,2]=''
   menu1[3,1]=" Exit "
   menu1[3,2]=''
   STORE .F. TO done
   DO WHILE .NOT. done
      MENU BAR menu1, 3
      READ MENU BAR TO menu_acr, mchoice
   DO CASE
   CASE menu_acr = 1
      = MESSAGEBOX("Choice 1")
   CASE menu_acr = 2
      = MESSAGEBOX("Choice 2")
   CASE menu_acr = 3
      STORE .T. TO done
   ENDCASE
   ENDDO
   RELEASE WINDOW Win1
   RETURN
   *-- Code ends here.