如何得到指定部件的句并

Question

得到鼠标初空间句并Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Type POINTAPI
        x As Long
        y As Long
End Type
Dim mhWnd As LongPrivate Sub Timer1_Timer()
Dim a As POINTAPI
GetCursorPos a
mhWnd = WindowFromPoint(a.x, a.y)
End Sub

Answer 1

Private Sub Command2_Click()
    Dim Controls As Control
    On Error Resume Next
    For Each Controls In Form1.Controls
        Debug.Print Controls.Name,
        Debug.Print Controls.hWnd
    Next
End Sub