Option Explicit

Private Declare Sub mouse_event Lib "user32" ( _
   ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _
   ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 '  absolute move
Private Const MOUSEEVENTF_MOVE = &H1        '  mouse move

Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function GetWindowRect Lib "user32" ( _
   ByVal hWnd As Long, lpRect As RECT) As Long
Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Private Const SPI_GETMOUSE =  3 
Private Const SPI_SETMOUSE =  4 
Private Const SPI_GETMOUSESPEED =  112 
Private Const SPI_SETMOUSESPEED =  113 
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_SENDCHANGE = SPIF_SENDWININICHANGE
Private Declare Function SystemParametersInfo Lib "user32" _
   Alias "SystemParametersInfoA" ( _
   ByVal uAction As Long, ByVal uParam As Long, _
   ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Sub CenterOnActiveTextBox()
 'Q193003
 Dim hWndActive As Long
 Dim rc As RECT
 Dim oldAccel( 0  To  2 ) As Long
 Dim newAccel( 0  To  2 ) As Long
 Dim oldSpeed As Long
 Dim newSpeed As Long
    
 On Error GoTo EH_CenterOnActiveTextBox
 If TypeOf Screen.ActiveControl Is TextBox Then
    hWndActive = GetFocus()
    GetWindowRect hWndActive, rc
    
    'The following values set mouse ballistics to 1 mickey/pixel.
    newSpeed =  1 
    
    'Save the Current Mouse Acceleration Constants
    SystemParametersInfo SPI_GETMOUSE,  0 , oldAccel( 0 ),  0 
    SystemParametersInfo SPI_GETMOUSESPEED,  0 , oldSpeed,  0 
    
    'Set the new Mouse Acceleration Constants (Disabled).
    SystemParametersInfo SPI_SETMOUSE,  0 , newAccel( 0 ), SPIF_SENDCHANGE
    SystemParametersInfo SPI_SETMOUSESPEED,  0 , newSpeed, SPIF_SENDCHANGE
   
    ' Move cursor to UL of primary monitor (origin).
    mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE,  0 ,  0 ,  0 ,  0 
   
    'Move the cursor to the desired coordinates.
    'Если не устраивает центр, здесь надо вычислить новые координаты
    mouse_event MOUSEEVENTF_MOVE, (rc.Left + rc.Right) /  2 , _
                (rc.Top + rc.Bottom) /  2 ,  0 ,  0 
   
    ' Restore the old Mouse Acceleration Constants.
    SystemParametersInfo SPI_SETMOUSE,  0 , oldAccel( 0 ), SPIF_SENDCHANGE
    SystemParametersInfo SPI_SETMOUSESPEED,  0 , oldSpeed, SPIF_SENDCHANGE
 End If
EH_CenterOnActiveTextBox:
 On Error GoTo  0 
End Sub