Hi Sergey,

This is what I,ve done.
Declared the variables in main program

Main program

PUBLIC skipincid, skiprisk
skipincid=.t.
skiprisk=.t.

Created a procedure

Proc HideMenubar
Sele Carmsdef
Do Case
Case Carmsdef.ca_incid ="Y"
skipincid = .T.
skiprisk= .T.

Case Carmsdef.ca_incid ="N"
skipincid = .F.
skiprisk= .F.
Endcase
Use

What I need is remove the menu Incidents if the condition carmsdef.ca_incid is "N".

Thanks in advance.

Zaheed

And in the dropdown menu went to submenu incidents skip and put
in !skipincid

Code below is from the menu.mpr
Menu.mpr

DEFINE BAR 4 OF update PROMPT "Incidents" ;
SKIP FOR !skipincid

This last line refers to a program where the last 4 characters are used
ON SELECTION BAR 4 OF update Do HKmain with "INCI"