' Found on the net somewhere ....
' Function GetMouseHandle() As Long Dim y As Long Dim tid As Long Dim hwnd As Long hwnd = GetForegroundWindow() tid = GetWindowThreadProcessId(hwnd, y) If tid = 0 Then GetMouseHandle = 0 Exit Function End If If tid <> GetCurrentThreadId() Then y = AttachThreadInput(GetCurrentThreadId(), tid, True) hwnd = GetCursor() y = AttachThreadInput(GetCurrentThreadId(), tid, False) End If GetMouseHandle = hwnd End Function |