Que es esto no??
<font color="Blue">DEFINE CLASS _Dataenvironment AS dataenvironment
Left = 251
Top = 242
Width = 520
Height = 200
<font color="Blue">ENDDEFINE
<font color="Blue">DEFINE CLASS Frmsolution1_oMenu AS _shortcutmenu OF ..\..\..\ffc\_menu.vcx
Top = 120
Left = 84
PROCEDURE setmenu
LPARAMETERS toobject
LOCAL oMenu2
oMenu2= THIS.NewMenu()
WITH oMenu2
.AddMenuBar("AAA","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("BBB","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("CCC","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("DDD","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("EEE","oTHISForm.HandleMenu(POPUP(),BAR())")
ENDWITH
WITH THIS
.AddMenuBar("XXX","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuSeparator()
.AddMenuBar("YYY",oMenu2)
.AddMenuBar("ZZZ","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("QQQ","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("PPP","oTHISForm.HandleMenu(POPUP(),BAR())",,,.T.)
.AddMenuBar("WWW","oTHISForm.HandleMenu(POPUP(),BAR())",,,,.T.)
.AddMenuBar("GGG","oTHISForm.HandleMenu(POPUP(),BAR())",,,,,.T.)
ENDWITH
ENDPROC
PROCEDURE Init
DODEFAULT()
this.SetMenu()
ENDPROC
<font color="Blue">ENDDEFINE
<font color="Blue">DEFINE CLASS _Frmsolution1 AS frmsolution OF ..\solution.vcx
ADD OBJECT Dataenvironment AS _Dataenvironment
ADD OBJECT oMenu AS Frmsolution1_oMenu
Height = 158
Width = 337
Caption = "Add Shortcut Menus to Objects"
HelpContextID = 1231611
PROCEDURE handlemenu
#DEFINE SELECT_LOC "You selected :"
LPARAMETER tcPopup,tnBar
WAIT WINDOW SELECT_LOC+PRMBAR(tcPopup,tnBar) TIMEOUT 1
ENDPROC
PROCEDURE RightClick
PRIVATE oTHISForm
oTHISForm=THIS
THIS.oMenu.ShowMenu()
ENDPROC
<font color="Blue">ENDDEFINE
Suerte