求助：用API制作单击其他窗口按钮遇到的问题


代码如下：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const WM_SETTEXT = &HC
Const BM_CLICK = &HF5
Const GW_OWNER = 4
Const SW_HIDE = 0Private Sub Form_Load()
    Dim ParentHandle1 As Long, ParentHandle2 As Long, ParentHandleF As Long
              Dim Handle As Long, a As Long
              ParentHandleF = FindWindow("WindowsForms10.Window.8.app.0.378734a", vbNullString)
              ParentHandle1 = FindWindowEx(ParentHandleF, 0, "WindowsForms10.Window.8.app.0.378734a", vbNullString)
              Handle = FindWindowEx(ParentHandle1, 0&, "WindowsForms10.EDIT.app.0.378734a", vbNullString)
              SendMessage Handle, WM_SETTEXT, 0, ByVal "1"
              Handle = FindWindowEx(ParentHandle1, Handle, "WindowsForms10.EDIT.app.0.378734a", vbNullString)
              SendMessage Handle, WM_SETTEXT, 0, ByVal "2"
              Handle = FindWindowEx(ParentHandle1, Handle, "WindowsForms10.EDIT.app.0.378734a", vbNullString)
              SendMessage Handle, WM_SETTEXT, 0, ByVal "3"
              Handle = FindWindowEx(ParentHandle1, Handle, "WindowsForms10.EDIT.app.0.378734a", vbNullString)
              SendMessage Handle, WM_SETTEXT, 0, ByVal "4"
              
              ParentHandle2 = FindWindowEx(ParentHandleF, ParentHandle1, "WindowsForms10.Window.8.app.0.378734a", vbNullString)
              Handle = FindWindowEx(ParentHandle2, 0, "WindowsForms10.Window.8.app.0.378734a", vbNullString)
              Handle = FindWindowEx(ParentHandle2, Handle, "WindowsForms10.Window.8.app.0.378734a", vbNullString)
              Handle = FindWindowEx(Handle, 0, "WindowsForms10.Window.8.app.0.378734a", vbNullString)
              SendMessage Handle, BM_CLICK, ByVal 0&, ByVal 0& '问题就是在此，点击没有任何反应，好像没有点击到按钮
              ShowWindow Handle, SW_HIDE '但隱藏按鈕又可以
End Sub