一个简单又奇怪的问题

Question

我做了一个很简单的程序，要求只能运行一个进程。
于是我在Sub Main中做了如下的判断。Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongSub Main()
    lr = FindWindow(vbNullString, FRM_CAPTION)
    If lr <> 0 Then
        MsgBox "不能同时运行两个。", vbExclamation, "提示"】"
        Exit Sub
    End If
    Load fmMain
End SubfmMain的Caption是FRM_CAPTION，问题来了。
如果我在VB的开发环境中运行该程序，没有任何问题，希望能正常运行。
可是当我单独运行编译后的EXE的时候，总是提示我“不能同时运行两个”，怎么会不一样呢？大家可以简单测试一下，另外再创建一个fmMain就可以了，然后定义一个FRM_CAPTION。谢谢大家！

Answer 1

我知道了，那是因为VB编辑环境中有我的主窗体frMain所以就说已经在运行了。不过也许App.PrevInstance不就完了？是更好的办法。

Answer 2

If App.PrevInstance = True Then    MsgBox "程序已经运行!" :Exit Sub