#define SW_SHOW_HIDDEN 0 #define SW_SHOW_NORMAL 1 #define SW_SHOW_MINIMIZED 2 #define SW_SHOW_MAXIMIZED 3 oShell = createobject("WScript.Shell") oShell.Run("Your DOS Command",SW_SHOW_HIDDEN,.T.)
DO WHILE .T. ME.Work() ENDDO