怎样防止程序重复开启？

怎样防止程序重复开启？

―――――来自CSDN  _  FAQ列表

vb.net2003生成了.exe文件，双击一次出一个程序，再双击又出一个程序，如何阻止已经打开的程序再次被打开？  
 
一、Dim  Createnew  As  Boolean  =  False  
Dim  mtx  As  New  System.Threading.Mutex(True,  Application.ProductName,  Createnew)  
If  Not  Createnew  Then  
                     msgbox  ("该程序已运行)  '程序已经运行  
                     End  '退出  
End  If  

二、  
     If  Ubound(Diagnostics.Process.GetProcessesByName  (Diagnostics.Process.GetCurrentProcess.ProcessName))  >  0  Then 

'''利用管道来判断进程启动相同程序的个数
                     msgbox  ("该程序已运行)  '程序已经运行  
                     End  '退出  
End  If