很简单就是一句话:
==========
If App.PrevInstance Then End

解决方案 »

  1.   

    If App.PrevInstance = True Then
    ...你能回答我1个问题吗?
    http://www.csdn.net/expert/topic/771/771301.xml?temp=.6642725
      

  2.   

    App.PrevInstance 是对的,但我认为不要随便用END语句为好,因为END语句不调用任何VB代码,不触发任何事件,比如QUERYLOAD和UNLOAD事件,只生硬地中止程序运行,会使得程序捕捉不到UNLOAD等事件,使得本该执行的语句未被执行.