GetWindow API VB

Question

我经常在Excel的VBE中编写脚本，因为它们都倾向于涉及Excel。这次我写了一个与Excel无关的脚本，所以我想把它变成一个可执行文件。

注意：   - 下面的代码是实际脚本的一部分   - 我也在VBE中单独测试了这个部分并且它可以工作   - 我现在在Visual Studio 2015中试过它

问题：   - 代码返回lWindow的句柄，但总是返回0 voor lChild

Module Module1
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String,
    ByVal lpWindowName As String) As Long
Declare Function GetWindow Lib "user32.dll" (
     ByVal hwnd As Long,
     ByVal wCmd As Long) As Long

Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Const BM_CLICK = &HF5&

Sub Main()
    Dim lWindow As Long
    Dim lChild As Long

    lWindow = FindWindow(vbNullString, "Untitled - Notepad")
    Debug.Print(lWindow)
    lChild = GetWindow(lWindow, GW_CHILD)
    Debug.Print(lChild)
End Sub

结束模块

感谢。