VB怎样判断、防止程序重复执行

Private Sub Form_load()
    '判断程序是否已经运行
    If App.PrevInstance
Then
     MsgBox "本程序已经运行！", vbInformation Or vbOKOnly, "提示信息"
     Unload
Me
     Exit Sub
    End If
    '以下是主要程序
    ' ……
    End
Sub
    附：另一个例子：
    Option Explicit
    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 ' 结束
      End
If
    End Sub
    Private Sub Form_Load()
     Call
CheckExist(Me)
    End Sub