Делается примерно так:
1. Создается объект приложение, в рамках фокса это класс типа Custom, назови его к примеру App.
В App своем перегружаешь метод Init в нем прописываешь:

*INIT

SET DELETED ON
this.Run()
Clear EVENTS
RETURN .F.


Протом создаешь RUN и в нем прописывешь:
*RUN
Declare Integer FindWindow in Win32Api;
String @ lpClassName, ;
String @ lpWindowName

Declare Integer ShowWindow in Win32Api;
Integer hWnd,;
Integer nCmdShow

#define SW_HIDE 0
#define SW_SHOWNORMAL 1
#define SW_NORMAL 1
#define SW_SHOWMINIMIZED 2
#define SW_SHOWMAXIMIZED 3
#define SW_MAXIMIZE 3
#define SW_SHOWNOACTIVATE 4
#define SW_SHOW 5
#define SW_MINIMIZE 6
#define SW_SHOWMINNOACTIVE 7
#define SW_SHOWNA 8
#define SW_RESTORE 9
#define SW_SHOWDEFAULT 10
#define SW_MAX 10


Declare Integer LockWindowUpdate in Win32Api;
Integer hWndLock

Declare Integer UpdateWindow in Win32Api;
Integer hWnd


#define LockTrayUpdate LockWindowUpdate(FindWindow("Shell_TrayWnd",0))

Declare Integer Sleep in Win32Api Integer ln_Milliseconds

_VFP.autoyield=.f.
IF !_screen.visible
_SCREEN.move(-5000,-5000,100,100)
_SCREEN.caption=sys(2015)
i=FindWindow(0,_screen.caption)
LockTrayUpdate
ShowWindow(i,SW_RESTORE)
_SCREEN.show
_SCREEN.alwaysontop=.t.
ShowWindow(i,SW_HIDE)
LockWindowUpdate(0)
ENDIF

PUBLIC lo_obj
lo_obj = newobject("skk_frm","skk")
IF VARTYPE(lo_obj)='O' .AND. !ISNULL(lo_obj)
with lo_obj
.autocenter=.t.
.Show()
endwith
ENDIF

with _screen
do while .t.
ll_sdi=.f.
for i=1 to .formcount
if .forms(i).showwindow =2 .and..forms(i).visible
ll_sdi=.t.
exit
endif
endfor


if ll_sdi
read events
else
exit
endif
enddo
endwith


skk_frm - это твой класс формы MDI. Она должна быть Top Level 2.
на нее нужно повесить меню и дергать из нее формы Top Level 1.
Запуск делается так :

PUBLIC oApp
oApp = newobject("_app","skk")
release oApp
close data all
Quit


_app -это твой объект приложение
И всеИдея-то в том что Init объекта APP никогда не выполнится.
Работает все от 6 версии до 8.