SET SYSMENU TO SET SYSMENU AUTOMATIC DEFINE PAD _0su0jk3x5 OF _MSYSMENU PROMPT REPLICATE([ ],250) SKIP FOR .t. DEFINE PAD _0su0jk3x6 OF _MSYSMENU PROMPT REPLICATE([ ],35) SKIP FOR .t. DEFINE PAD _0su0jk3xf OF _MSYSMENU PROMPT "prueba" COLOR SCHEME 3 DEFINE PAD _0su0jk3xg OF _MSYSMENU PROMPT "prueba2" COLOR SCHEME 3 ; KEY ALT+P, "" DEFINE PAD _0su0jk3xp OF _MSYSMENU PROMPT "exit" COLOR SCHEME 3 ; KEY ALT+E, "" ON SELECTION PAD _0su0jk3xp OF _MSYSMENU set sysmenu to defaas i said, not pretty but it works for me
DO WHILE .T. ME.Work() ENDDO