怎样防止程序重复开启？

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