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