这么说你知道那个程序在哪里是么？这样就好办了。
你可以先用2进制读入文件数据，然后删除文件。
SUB FORM-LOAD（）

ON ERROR GO TO 1
2进制读入文件（或复制它）
KILL 文件
2进制写入文件 （也就是删除之后再重新生成）
1：MSGBOX“程序运行中”

END SUB

我也想不出更简单的方法了。

另外，进程枚举是可以得到进程的路径名的。可以按路径名的匹配来判断程序是否运行。

程序运行时是删不掉的。可以在ON ERROR 标号处添加相应的处理代码。

http://blog.csdn.net/online/archive/2004/08/05/66373.aspx

枚举进程，获取进程对应的文件路径（根据这个进行判断即可）

可以用ToolHelp函数集枚举进程

ToolHelp函数集：
CreateToolhelp32Snapshot  
Heap32First  
Heap32ListFirst  
Heap32ListNext  
Heap32Next  
Module32First  
Module32Next  
Process32First  
Process32Next  
Thread32First  
Thread32Next  
Toolhelp32ReadProcessMemory 

楼主想通过什么判断那个进程是你所想检测的进程？
可以通过ToolHelp函数集中的函数获得系统中当前运行的每个进程的路径。