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