Espero ser util, lo que estas haciendo no es una ambiente MDI, si deseas hacerlo MDI aqui tienes este link para que
veas como se puede poner un menu en una ventana MDICHILD, porque de la forma tradiconal no se puede, la barra de menu lo asumiria la ventana principal
http://forums.fivetechsoft.com/viewtopic.php?t=8317
landaga wrote: DEFINE ICON oIcoCh RESOURCE "CARPETAS"
DEFINE WINDOW oWndCh OF oWnd ;
TITLE O2A('AlmaGest(c) v.8.9') FROM 10,10 TO 35,115 ;
MENU Menu1() ;
BRUSH oBruCh ;
ICON oIcoCh BORDER NONE NOICONIZE NOMAXIMIZE NOSYSMENU
de lo contrario si quieres dejarlo tal cual esta lo que debes hacer es eliminar de la instruccin anterior el "OF oWnd" dejalo simplemente asi:
DEFINE WINDOW oWndCh ;
TITLE O2A('AlmaGest(c) v.8.9') FROM 10,10 TO 35,115 ;
MENU Menu1() ;
BRUSH oBruCh ;
ICON oIcoCh BORDER NONE NOICONIZE NOMAXIMIZE NOSYSMENU
y haces los cambios respectivos para cerrar las ventanas, etc...