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" SKIP 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