I think there are better ways to find if the program is running, but you may also try this:
loCIMV2 = GetObject("winmgmts://localhost/root/cimv2")
loProcesses = loCimv2.ExecQuery("SELECT * FROM Win32_Process WHERE Name LIKE 'vfp%'")
ForEach objProcess in loProcesses
objProcess.Terminate(0)
Next
This program terminates processes like VFP...
See also Re: Kill remote process Thread #1142445 Message #1142467