Automatically position mouse cursor above CommandButton or control in UserForm

Option Explicit 
Option Compare Text 
 'by cytop
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ 
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
 
Private Declare Function ClientToScreen Lib "user32" _ 
(ByVal hwnd As Long, lpPoint As POINTAPI) As Long 
 
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hDC As Long, ByVal _ 
nIndex As Long) As Long 
 
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long 
 
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal _ 
hDC As Long) As Long 
 
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long 
 
Private Const LOGPIXELSX = 88 
Private Const LOGPIXELSY = 90 
 
Private Type POINTAPI 
    X As Long 
    Y As Long 
End Type 
 
Public Sub CenterMouseOver(f As Object, c As Object) 
     
    Dim P As POINTAPI 
    Dim lngHwnd As Long 
     
     '// Window handle - might be an idea to make sure caption
     '// is not the default 'UserformX' to avoid possibility
     '// of finding the wrong window - I'll tignten this
     '// up later to eliminate that possibility if needed.
    lngHwnd = FindWindow(vbNullString, f.Caption) 
     
     '// PointPerPixelX/Y is the key to this.
     '// Find the mid point of the control based purely on the form
     '// co-ordinates and convert based on the number of points
     '// per pixel (X & Y are different - See constants declaration).
    P.X = (c.Left + (c.Width \ 2)) / PointsPerPixelX 
    P.Y = (c.Top + (c.Height \ 2)) / PointsPerPixelY 
     
     '// Convert the control location baased on the userform
     '// to an absolute Screen position based on 0,0 being
     '// top left handcorner of the screen/
    ClientToScreen lngHwnd, P 
     
     '// And simply put the cursor there
    SetCursorPos P.X, P.Y 
     
End Sub 
 
Private Function PointsPerPixelX() As Double 
     
    Dim hDC As Long 
     
     '// Desktop Device Context
    hDC = GetDC(0) 
     '// A point is 1/72th of an inch and LOGPIXELSX returns
     '// the number of pixels per logical inch, so divided to give
     '// the width of a pixel in Excel's userform coordinates
    PointsPerPixelX = 72 / GetDeviceCaps(hDC, LOGPIXELSX) 
    ReleaseDC 0, hDC 
     
End Function 
 
Public Function PointsPerPixelY() As Double 
     
     '// Same as PointsPerPixelX
    Dim hDC As Long 
    hDC = GetDC(0) 
    PointsPerPixelY = 72 / GetDeviceCaps(hDC, LOGPIXELSY) 
    ReleaseDC 0, hDC 
End Function

Public Sub CenterMouseOver(f As Object, c As Object, Optional SlowMove As Boolean = False) 
     'by cytop    28/9/15
    Dim P                As POINTAPI 
    Dim lngHwnd          As Long 
     
    Dim pCurrent         As POINTAPI 
     
     '//********************************************************
     '// Following for the 'Slow move' to destination. More
     '// visible as the user can see the mouse move
    Dim X                As Single 
    Dim Y                As Single 
    Dim sngIncr           As Single 
    Dim lStepValue       As Long 
     
    Dim PointX1             As Long 
    Dim PointY1             As Long 
    Dim PointX2             As Long 
    Dim PointY2             As Long 
     
     '// PixelStep is the number of pixels to move mouse
     '// each step
    Const PixelStep      As Long = 20 
     
     '// Sleep (MilliSeconds)just to slow it down, or at least
     '// that was the idea - Juggle PixelStep and SleepTime
     '// for best results on the local system
    Const SleepTime      As Long = 5 
     '//********************************************************
     
     '// Window handle - might be an idea to make sure caption
     '// is not the default 'UserformX# to avoid possibility
     '// of finding the wrong window - or I'll tignten this
     '// up later to eliminate that possibility
    lngHwnd = FindWindow(vbNullString, f.Caption) 
     
     '// PointPerPixelX/Y is the key to this.
     '// Find the middle point based purely on the form
     '// co-ordinates.
    P.X = (c.Left + (c.Width \ 2)) / PointsPerPixelX 
    P.Y = (c.Top + (c.Height \ 2)) / PointsPerPixelY 
     
     '// Convert the client location (Control Top & Left)
     '// to absolute Scree position
    ClientToScreen lngHwnd, P 
     
    If SlowMove Then 
         '// Get the current Cursor position
        GetCursorPos pCurrent 
         
        PointX1 = pCurrent.X 
        PointY1 = pCurrent.Y 
        PointX2 = P.X 
        PointY2 = P.Y 
         
        If PointY1 = PointY2 Then 
             
             '// Straight across - unlikely but separated to reduce the
             '// number of IFs in the other (Anything but horizontal) loop
            sngIncr = 1 
            If PointX2 > PointY1 Then 
                lStepValue = PixelStep 
            Else 
                lStepValue = -PixelStep 
            End If 
             
            Y = PointY1 
             
            For X = PointX1 To PointX2 Step lStepValue * sngIncr 
                 
                SetCursorPos X, Y 
                 
                DoEvents 
                Sleep SleepTime 
                 
            Next 
             
        Else 
             
             '// Anything but horizontal
            If PointY2 > PointY1 Then 
                lStepValue = PixelStep 
            Else 
                lStepValue = -PixelStep 
            End If 
             
            sngIncr = (PointX2 - PointX1) / Abs(PointY1 - PointY2) 
             
            X = PointX1 
            For Y = PointY1 To PointY2 Step lStepValue 
                 
                X = X + sngIncr * Abs(lStepValue) 
                 
                SetCursorPos X, Y 
                 
                DoEvents 
                Sleep SleepTime 
                 
            Next 
             
        End If 
    End If 
     
     '// And put the cursor at final position
    SetCursorPos P.X, P.Y 
    DoEvents: DoEvents 
     
End Sub