Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, _ ByVal Y As Long) As LongPrivate Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, _ lpRect As RECT) As Long' Move the mouse cursor to the center' of a given window or controlSub SnapMouseToWindow(ByVal hWnd As Long) Dim lpRect As RECT ' get the coordinates of the window in pixels GetWindowRect hWnd, lpRect ' move the mouse to its center SetCursorPos lpRect.Left + (lpRect.Right - lpRect.Left) 2, _ lpRect.Top + (lpRect.Bottom - lpRect.Top) 2End Sub
![Outage Reddit](https://www.devx.com/wp-content/uploads/Outage-Reddit-300x171.jpg)