防止程序自身多次运行。

    由于WINDOWS的多任务处理功能， 有些程序可能打开后忘记了，下次用时还可能再打开，这样做会占用系统资源降低系统效率。为了防止自身被多次运行，可利用VB应用对象提供的PrevInstance属性来检测内存中是否已有一个自身的副本，若有则给出提示后结束。一般将检测代码放在FORM＿LOAD（）中，因为程序一运行就要检测。
代码如下：
sub form＿load（）
if App．PrevInstance then
msg＄＝App．exename ＆ ”has already run”
msgbox msg＄，48 ’给出程序已运行的提示和一惊叹号以示警告
end
endif
end sub