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