避免VisualBasic程序重復執行

如何避免程式重復執行？（偵測是否存在前一副本，若有，則結束目前新啟動的程式）。使用者在啟動程式後，有時會將程式縮小在工作列上，之後要用時，又會重新啟動一次程式，資料庫程式有時會因此造成資料錯亂！若您不希望使用者重復啟動程式，您可以使用APP物件來判斷，方法如下：

PrivateSubForm_Load()
　　IfApp.PrevInstanceThen'檢視前一版本
　　MsgBox"此程式已經在執行中！",48
　　End
　　EndIf
　　EndSub->