方法1、http://www.foxtable.com/help/topics/2713.htm
方法2、
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("foxtable")
if pa.Length > 0 then
'doing
end if