LOCAL lcSelected DEFINE POPUP myPopup FROM mrow(), mcol() DEFINE BAR 1 OF myPopup PROMPT 'First item' DEFINE BAR 2 OF myPopup PROMPT 'Second item' DEFINE BAR 3 OF myPopup PROMPT 'Third item' DEFINE BAR 4 OF myPopup PROMPT 'Fourth item' ON SELECTION POPUP myPopup lcSelected = PROMPT() ACTIVATE POPUP myPopup WAIT WINDOW lcSelected NowaitCheers,