如何禁止一个程序同时打开两次?

[foxbuilder]

rt!

[eileendl]

Imports System.Diagnostics

dim b as boolean
b=(UBound(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)) > 0)
if b=true then
'退出
else
'开始执行
end if