Maybe this is not the prittiest way to do this but this is what I do to put the Exit pad in teh righ in the sysmenu
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 defa
as i said, not pretty but it works for me
.......
DO WHILE .T.
ME.Work()
ENDDO
