VB 单实例运行

VB6
在程序运行时用如下语句：
if   app.PrevInstance=true   then  
            end    
end   if
VB 2005:
1. 在VB2005中,打开"属性"页,启用"应用程序“框架, 选中"
单实例应用程序"前面复选框,就行了。
    (WinCE中没有该属性设置，只能通过Findwindow函数，察看是否已经有程序的实例在运行。或者用下面的MUTEX)
2. MUTEX. (一下代码为2008)
'
引用Mutex的类
　　
Imports
System.Threading
　　
Private

Sub
Form1_Load(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles

MyBase
.Load
　　
'
定义Mutex的类
　　
Dim
objMutex
As
Mutex
　　
'
得到应用程序的名称
　　
Dim
AppName
As

String

=

Assembly
.GetExecutingAssembly().GetName().Name
　　
'
用这个应用程序的名字,去实例化这个Mutex
　　objMutex
=

New
Mutex(
False
, AppName)
　　
'
判断是否有相同的应用程序在运行;
　　
If
objMutex.WaitOne(
0
,
False
)
=

False

Then
　　objMutex.Close()
　　objMutex
=

Nothing
　　MessageBox.Show(
"
这个程序正在运行!
"
)
　　Close()
'
关闭这个应用程序
　　
Exit Sub
　　
End

If
　　
End Sub