>I use following structure:
>***Main.Prg
>set procedure to sysproc
>do header && some settings here
>oApp=createobject("clApp")
>do form topform name oApp.topform && start top-level form
>read events
>do footer && some cleaning here
>return
>
>define class clApp as custom
> topform=.NULL.
>enddefine

Gotcha. You then have your app menu associated with (started by or part of?) the top level form in which everything else runs.