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