ASM

MENUS

Delete menu items

If you want it to go away completly try somthing like this:

myMen&=FN GETMHANDLE(_SubjectsMenu)
NumOfItems= FN COUNTMITEMS(myMen&) 'how many?
FOR x=numOfItems TO 1 step -1 'clear them
  CALL DELMENUITEM(myMen&,x)
NEXT x

Notice that I am counting from the high menu number down to the lower. If you go from 1 up to numOfItems, it can cause headaches. When you delete #1, then #2 becomes #1 and you will spend a lot of time trying to figure out why some are never deleted?