VB防止程序重复运行

Option Explicit txt文件,内容如下: Public Sub CheckExist(fm As Form) Dim title As String If App.PrevInstance Then title = App.title Call MsgBox("这程序已执行", vbCritical) App.title = "" '如此才不会Avtivate到自己 fm.Caption = "" AppActivate title 'activate先前就已行的程序 End E

程序源码写的不够完美