Получение Handle объектов под мышью

Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Int32, ByVal yPoint As Int32) As Int32
Label1.Text = WindowFromPoint(MousePosition.X, MousePosition.Y)

Structure POINTAPI
    Public x As Int32
    Public y As Int32
End Structure
 
Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer
Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Integer
 
        ' получим текущую позицию курсора
        GetCursorPos(pt)
        ' дескриптор окна под курсором
        Dim iret As Integer = WindowFromPoint(pt.x, pt.y)

Me.Text = Me.Handle

Dim lhWnd As Int64 = WindowFromPoint(pt.x, pt.y)

Declare Function WindowFromPoint Lib "user32" (ByVal pPoint As POINTAPI) As Integer
Structure POINTAPI
    Public x As Int64
    Public y As Int64
End Structure

Declare Function WindowFromPoint Lib "user32" (ByVal pPoint As POINTAPI) As Int64
' ...
Dim lhWnd As Int64 = WindowFromPoint(pt)

Structure POINTAPI
    Public x As Int64
    Public y As Int64
End Structure

Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Int32, ByVal yPoint As Int32) As Int32
Structure POINTAPI
        Public X As Int32
        Public Y As Int32
    End Structure
Dim Mouse As POINTAPI 
Dim H As Int32 
H = WindowFromPoint(Mouse.X, Mouse.Y)

Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As POINTAPI) As Int32
Structure POINTAPI
        Public X As Int32
        Public Y As Int32
    End Structure
Dim Mouse As POINTAPI 
Dim H As Int32 
H = WindowFromPoint(Mouse)