我们希望防止同一应用程序同时执行多次,其方法是判断App的PrevInstance属性若App.PrevInstance为True,则表示此应用程序在执行中,可以直接结束本此执行,这样就可以了。
Private Sub Form_Initialize()
If App.PrevInstance Then End
End Sub
Private Sub Form_Initialize()
If App.PrevInstance Then End
End Sub