VB中怎么使生成程序检测到与自己同样的程序运行中就自行结束

使用APP.PrevInstance
当他为TRUE时说明已经有一个在运行了,然后END

如下： If App.PrevInstance = True Then MsgBox “已经又一个& App.EXEName & “程序在运行。“, vbInformation + vbOKOnly, “提示“ End End If

if PrevInstance then end