API的难题.解决后给200分,要源代码!

Question

Public Declare Function WindowFromPoint Lib "user32" _
                       (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function GetCursorPos Lib "user32" _
                       (lpPoint As POINTAPI) As Long
Public Type POINTAPI
    x As Long
    y As Long
End TypePrivate Sub Command1_Click()    Dim P As POINTAPI
    
    GetCursorPos P
    
    debug.print WindowFromPoint(P.x, P.y)End Sub

Answer 1

我要的是光标位置,不是鼠标位置.谢谢你!

Answer 2

你这样只能得到你的程序所点的那个按钮的句柄.