不能再次装载程序

　　 
　　不能再次装载程序
注释：你可以利用 App 对象的 PrevInstance 属性来轻易达到你的目的。
注释：我们可以在程序打开时(Main()中)加入以下代码来验证:
If App.PrevInstance Then
MsgBox ("程序已经运行，不能再次装载。"), vbExclamation

Exit Sub
End If

原文转自：http://www.ltesting.net