Problema con menu

si te refieres a usar el generador de menu, a mi parecer se complica demasiado la vida para  crear un MPR que es equivalente a un PRG, asi que lo que hago es generar el PRG en forma directa, por ejemplo
PROCEDURE imenu
*********************************************************************
Set Sysmenu to
Set Sysmenu automatic
Define Pad _cat  OF _msysmenu  PROMPT  "\<Catalogos " 
Define Pad _ext OF _msysmenu  PROMPT  "\<Salir " 
On Pad _cat  OF _msysmenu Activate Popup cat1
On Pad _Ext  OF _msysmenu Activate Popup ext1
   Define popup ext1 Shortcut relative From MROW(),MCOL()
      Define Bar 1 OF ext1  prompt '\<Salir del Sistema '
      ON Selection Bar 1 OF ext1 CLEAR EVENTS
************************************************************************************
***Catalogos **
****************
   Define Popup cat1 SHORTCUT RELATIVE FROM MROW(), MCOL()
      Define Bar  1 OF cat1  prompt '\<1.- Articulos ' PICTURE "bmp\barcd00b.ico"
      Define Bar  2 OF cat1  prompt '\<2.- Clientes ' PICTURE "bmp\161.ico"
      Define Bar  3 OF cat1  prompt '\<3.- Proveedores '
      Define Bar  4 OF cat1  prompt '\-'
      Define Bar  5 OF cat1  prompt '\<Salir del Sistema ' PICTURE "bmp\163.ico"
      ON SELECTION POPUP cat1 =_execat1(BAR(),PROMPT())
************************************************************************************
FUNCTION _execat1(mi_bar,mi_prompt)
DO CASE
CASE mi_bar=5&& Salir del Sistema
=_cmdEndProgram()
CASE mi_bar=1
=exe_form("ART100","")
CASE mi_bar=2
=exe_form("IDE100","")
OTHERWISE 
MESSAGEBOX("Opcion '"+mi_prompt+"' en construccion",0+64,"AVISO")
Endcase
Endfunc
****************************************************************************************