local fn DoMenu
dim as long menuID,itemID
menuID = MENU(_menuID)
itemID = MENU(_itemID)
select (menuID)
case _applemenu
select (itemID)
case 1
beep
case 2
beep
end select
end select
end fn


I have the above DoMenu in my program

But nothing happens when I click on a menuitem in the Application menu
 (formerly Apple Menu)

Brian