2002-12-27 20:12

'From:  Marco  Fri Dec 27, 2002  10:31 am

     DECLARE SUB AppleSub
     CREATE form AS QFORM ' Form
      CAPTION="click right mousebutton"
      center
      CREATE menu AS QPOPUPMENU ' Main Menu
       CREATE Foods AS QMENUITEM ' Items
        CAPTION="Foods"
        CREATE Fruit AS QMENUITEM
         CAPTION="Fruit"
         CREATE Apples AS QMENUITEM
          CAPTION="Apples"
          onclick = applesub
         END CREATE
         CREATE Bananas AS QMENUITEM
          CAPTION="Bananas"
         END CREATE
        END CREATE
        CREATE Vegatbles AS QMENUITEM
         CAPTION="Vegtables"
         CREATE carrots AS QMENUITEM
          CAPTION="Carrots"
         END CREATE
         CREATE peppers AS QMENUITEM
          CAPTION="Peppers"
         END CREATE
        END CREATE
       END CREATE
      END CREATE
     END CREATE
     form.SHOWMODAL

     SUB AppleSub ' Apple Sub
      "showmessageApples anyone?"
     END SUB

2002-12-27 20:12