怎么才能防止VB编写好的应用程序被用户多次运行？

Question

在程序启动时通过
App.PrevInstance
语句判断是否已经运行，如果已经运行就退出当前的程序

Answer 1

  If App.PrevInstance Then
        MsgBox ("程序已经运行，不能再次装载。"), vbExclamation
        Unload Me
    End If

Answer 2

在load事件中用
sub from_load()
if App.PrevInstance=true then 
   exit sub
end if
.......
.......
.......
end sub
 

Answer 3

If App.PrevInstance Then
       MsgBox "xxx已经运行!", vbOKOnly, "xxxxxx"
       End
End If