Hi,

IMO, a good way to get the syntax is to create a test-shortcut in the designer,
"generate" it and have a look at the result.MPR file.
This would be an example for a shortcut with submenu

DEFINE POPUP sc SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF sc PROMPT "Cash Receipts"
ON BAR 1 OF sc ACTIVATE POPUP cashreceip

DEFINE POPUP cashreceip SHORTCUT RELATIVE
DEFINE BAR 1 OF cashreceip PROMPT "New"
DEFINE BAR 2 OF cashreceip PROMPT "Edit"
ON SELECTION BAR 1 OF cashreceip messagebox('1')
ON SELECTION BAR 2 OF cashreceip messagebox('2')

ACTIVATE POPUP sc

(BTW, "sele" in your example is a reserved word in FoxPro)

hth
-Stefan

>Dear Sir,
>
>I want to create submenu of Bar1 of popup entitled ABC.
>
>For example
>
>When I run following codes, a bar entited "Cash Receipt" appears I want to add two submenu item "New" and "Edit" against "Cash Receipt".
>How is it possible?
>
>Pleaes help and make some changes in following codes
>
>

>LOCAL SELE
>SELE=0
>
>DEFINE POPUP ABC SHORTCUT RELATIVE FROM 8,80 to 15,110  TITLE 'I N P U T S'
>
>DEFINE BAR 1 OF ABC PROMPT '\<1- Cash Receipt'FONT "Verdana",10 COLOR ,RGB(0,0,255,14,179,250)
>
>ON SELECT BAR 1 OF ABC SELE =1
>
>ACTIVATE POPUP ABC
>
>DO CASE
>CASE SELE=1
>	DO FORM VCASHR
>ENDCASE
>
>THISFORM.REFRESH
>