** TestMenu.prg Set sysmenu to Set sysmenu automatic Define pad Pad_1 of _MSysMenu prompt '\<Upper Menu' On pad Pad_1 of _MSysMenu activate popup UpperMenu Define POPUP Uppermenu MARGIN Define bar 1 of uppermenu prompt 'Finish' DEFINE bar 2 of uppermenu Prompt "hey hey" DEFINE bar 3 of uppermenu Prompt "blah" On bar 3 of uppermenu Activate popup Blah DEFINE POPUP blah MARGIN For ln_X = 1 to 55 Define bar ln_X of blah prompt ( 'Bar ' + transform( ln_X ) ) Next