Please try this code

DEFINE POPUP _popShortcutMenu ;
		FROM MROW(),MCOL() ;
		MARGIN ;
		RELATIVE ;
		SHORTCUT

DEFINE POPUP _SubMenu ;
	SHORTCUT RELATIVE


DEFINE BAR 1 OF _popShortcutMenu PROMPT "Item 1" 
DEFINE BAR 2 OF _popShortcutMenu PROMPT "Item 2 With sub" 
DEFINE BAR 3 OF _popShortcutMenu PROMPT "Item 3" 

ON BAR 2 OF _popShortcutMenu ACTIVATE Popup _SubMenu 

Define Bar 1 Of _SubMenu Prompt "SubMenu 1"
Define Bar 2 Of _SubMenu Prompt "SubMenu 2"


ACTIVATE POPUP _popShortcutMenu


*RELEASE POPUP _popShortcutMenu
*RELEASE POPUP _SubMenu 

WinXP shows correctly the submenu at the right side of the bar "Item 2 With sub".

Try the same code with Win Vista with Aero interface.

The submenu is shown at the LEFT SIDE of the bar, so, if the shortcut menu is activated near the left side of the monitor, it becomes unusable, since the user can't read the submenu.

Any workaround?

TIA.
Bruno