In addition (correction: Shell object, not VBScript... misspelled).
Try the following code:

sll = CreateObject("WScript.Shell")
lcCmd = '"C:\program files\Microsoft Office\Office10\excel.exe"'
cmdReturn = sll.Run(lcCmd, 1, .T.)

VFP window is available, but user input is locked.