RunAndWait("winword.exe", "c:\temp\test.doc")
 
PROCEDURE RunAndWait(cApplication, cParameters)
      LOCAL cCmd, oShell
 
      IF VARTYPE(m.cParameters) = "C" And Not EMPTY(m.cParameters)
            cCmd = '"' + cApplication + '" "' + cParameters + '"'
      ELSE
            cCmd = '"' + cApplication + '"'
      ENDIF
 
      oShell = CreateObject("WScript.Shell")
*      oShell.Run(cCmd, 1, .T.)  && wait for the process' termination
      oShell.Run(cCmd, 1, .F.)  && FoxPro app keeps running