怎样使VB程序只允许运行一个例程？

Question

Private Sub Form_Load()If App.PrevInstance Then
MsgBox "该程序已经运行！"
End
End IfEnd Sub

Answer 1

If App.PrevInstance = True Then
        MsgBox "本程序已经运行，不能多次运行！", vbExclamation, "警告"
        End
End If

Answer 2

If App.PrevInstance = True Then
        MsgBox "本程序已经运行！", vbExclamation, "警告"
        End
End If

Answer 3

If App.PrevInstance Then
MsgBox "该程序已经运行！",32
End
End If