LOCAL lnBarNo DO MyShortCut.mpr ON SELECTION POPUP MyShortCut lnBarNo = BAR() DO CASE CASE lnBarNo = 1 Something CASE lnBarNO = 2 SomethingElse CASE lnBarNo = 3 SomeOtherThing ENDCASE