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