DEFINE MENU MyMenu IN WINDOW (ThisForm.Caption) DEFINE PAD MyPad1 OF MyMenu PROMPT '\<First Pad' KEY ALT+F,'' DEFINE PAD MyPad2 OF MyMenu PROMPT '\<Second Pad' KEY ALT+S,'' On KEY LABEL ALT+F ACTIVATE MENU MyMenu PAD MyPad1 On KEY LABEL ALT+S ACTIVATE MENU MyMenu PAD MyPad2 ON PAD MyPad1 OF MyMenu ACTIVATE POPUP MyPopup1 DEFINE POPUP MyPopup1 MARGIN RELATIVE DEFINE BAR 1 OF MyPopup1 PROMPT 'Say Hi' ON SELECTION POPUP MyPopup1 MESSAGEBOX("Option: "+PROMPT( )) SHOW MENU MyMenu SAVEHope this helps,