SnapMouseToWindow – Move the mouse cursor to the center of a form or control

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

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: