vb6写的程序如何判断自身已经运行，最简单的方法

vb6写的程序如何判断自身已经运行

VB中很容易实现：

Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "你已经运行这个应用程序了"
End ' 退出新运行的程序
End If
End Sub

这样如果你运行这个程序后，再次运行它，它会弹出一个消息框并拒绝再次运行。