Roxanne,

I'm using an object oriented menu:

oMenu = CREATEOBJECT("Menu")

oMenu.AddObject("File", "Pad", "File")

oMenu.File.AddObject("New", "Bar", "New")
oMenu.File.AddObject("Open", "Bar", "Open")
oMenu.File.AddObject("Sep1", "Bar")
oMenu.File.AddObject("Save", "Bar", "Save")
oMenu.File.AddObject("Sep2", "Bar")
oMenu.File.AddObject("Exit", "Bar", "Exit")

oMenu.File.Exit.cCommand = "oApp.lContinue = .F."

oMenu.Rebuild()


This approach allows you to change the menu on the fly with single
line commands like:

oMenu.File.New.SetCaption("New Caption")

and can be completly data-driven.

I can EM you the classes if you like?