请问VB下如何实现设置工程属性为只有一个实例运行（即不能同时运行多个应用程序的实例，就像windows的任务管理器）

Question

？

Answer 1

在程序运行时用如下语句：
if app.PrevInstance=true then
     end 
end if

Answer 2

If App.PrevInstance Then
        MsgBox "已经有一个 " & App.ProductName & " 在你的电脑上运行着!"
        Exit Sub
    End If

Answer 3

'ÅжÏÊÇ·ñÒѾ­Æô¶¯
    If App.PrevInstance = True Then
        MsgBox "³ÌÐòÒѾ­ÔËÐС£", vbExclamation, g_cnststrMsgTitle
        End
    End If