如何取得控件句柄及控件座标？

Option Explicit

Dim hWnd1 As Long, hWnd2 As Long

Private Sub Command1_Click()
Dim h&
Dim Str As String
    Do
        h = FindWindowEx(hWnd1, h, vbNullString, vbNullString)
        If h <> 0 Then
            GetWindowText h, Str, 255
            Debug.Print Str & " : " & h
            List1.AddItem h
        End If
    Loop Until h = 0
End Sub

Private Sub Form_Load()
Dim h&
    hWnd1 = Shell(App.Path & "\Aprcg.exe", vbHide)
    hWnd1 = FindWindow(vbNullString, "Pattern Reverse Compiler")
    h = FindWindowEx(hWnd1, hWnd2, vbNullString, vbNullString)
End Sub