Public Structure POINTAPI
Dim x As long
Dim y As long
End Structure
<DllImport("user32.dll", EntryPoint := "ChildWindowFromPoint", SetLastError := True)> _
Public Function ChildWindowFromPoint(ByVal hWnd As Long, ByVal lpPoint As POINTAPI) As Long
End Function
''''''''''''''''''''''''''''''''''
dim p as POINTAPI
dim hWnd as long
p.x =100
p.y = 100
hWnd=530246
messagebox.show(ChildWindowFromPoint(hWnd,p))
无法正常运行 我p.y改到多大都能显示句柄 请帮忙看一下谢谢