Declare Function MonitorFromPoint Lib "user32" ( _ ByVal x As Long, _ ByVal y As Long, _ ByVal dwFlags As Long) As Long
MonitorFromPoint получает дескриптор показывающего монитора, который содержит заданную точку.
Если точка содержится в мониторе, возвращается значение дескриптора HMONITOR показывающего монитора. Если точка не содержится в показывающем мониторе, то возвращаемое значение зависит от значения dwFlags
смотри пример monitor.zip