获取某点的句柄

Public Type POINTAPI

        x As Long

        y As Long

End Type

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Sub Form_Load()

    Dim point As POINTAPI

    GetCursorPos point

    formleft = point.x

    formtop = point.y

    winpoint = WindowFromPoint(formleft, formtop)

End Sub