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