很多软件不要求重复运行的，可以加入如下代码来实现： 把以下代码放在第一个窗体的Form_Load事件中：

If App.PrevInstance = True Then Call MsgBox("这个程序正在运行！",vbExclamation,"重复运行了") End End If