避免VisualBasic程序重复执行

核心提示：如何避免程式重复执行？（侦测是否存在前一副本，若有，避免VisualBasic程序重复执行，则结束目前新启动的程式），使用者在启动程式后，又会重新启动一次程式，资料库程式有时会因此造成资料错乱！若您不希望使用者重复启动程式，有时会将程式缩小在工作列上，之后要用时

如何避免程式重复执行？（侦测是否存在前一副本，若有，则结束目前新启动的程式）。使用者在启动程式后，有时会将程式缩小在工作列上，之后要用时，又会重新启动一次程式，资料库程式有时会因此造成资料错乱！若您不希望使用者重复启动程式，您可以使用APP物件来判断，方法如下：

PRivateSubForm_Load()
IfApp.PrevInstanceThen'检视前一版本
MsgBox"此程式已经在执行中！",48
End
EndIf
EndSub->