SetCursorPos работает только при нажатой ЛКМ

Private Sub picCanvas_KeyDown(KeyCode As Integer, Shift As Integer)
    ret = GetCursorPos(absXY)
    absX = absXY.X '
    absY = absXY.Y '
    If KeyCode = vbKeyLeft Then
        absX = absX - 1
        Call SetCursorPos(absX, absY)
    ElseIf KeyCode = vbKeyRight Then
        absX = absX + 1
        Call SetCursorPos(absX, absY)
    ElseIf KeyCode = vbKeyUp Then
        absY = absY - 1
        Call SetCursorPos(absX, absY)
    ElseIf KeyCode = vbKeyDown Then
        absY = absY + 1
        Call SetCursorPos(absX, absY)
    End If
End Sub

Option Explicit
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Sub picCanvas_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim absXY As POINTAPI
    Dim absX As Long
    Dim absY As Long
    Dim Ret As Long
 
    Ret = GetCursorPos(absXY)
    absX = absXY.x '
    absY = absXY.y '
    If KeyCode = vbKeyLeft Then
        absX = absX - 1
        Call SetCursorPos(absX, absY)
    ElseIf KeyCode = vbKeyRight Then
        absX = absX + 1
        Call SetCursorPos(absX, absY)
    ElseIf KeyCode = vbKeyUp Then
        absY = absY - 1
        Call SetCursorPos(absX, absY)
    ElseIf KeyCode = vbKeyDown Then
        absY = absY + 1
        Call SetCursorPos(absX, absY)
    End If
End Sub

'==================== Получить/установить позицию курсора =====================
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public absXY As POINTAPI
Public Type POINTAPI
    X As Long
    Y As Long
End Type
'

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
KeyPreview = True
 
GetCursorPos absXY
 
    Select Case KeyCode
        Case 37: absXY.X = absXY.X - 1 'Left key
        Case 38: absXY.Y = absXY.Y - 1 'Up key
        Case 39: absXY.X = absXY.X + 1 'Right Key
        Case 40: absXY.Y = absXY.Y + 1 'Down key
    End Select
 
    SetCursorPos absXY.X, absXY.Y
End Sub

Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim absXY As POINTAPI
    
    Dim absX As Long
    Dim absY As Long
    
    GetCursorPos absXY
    absX = absXY.x
    absY = absXY.y
    
    ' Обрабатывать горячие клавиши только лишь, в случае если, указатель мыши находится над PictureBox
    If WindowFromPoint(absXY.x, absXY.y) = picCanvas.hWnd Then
        If KeyCode = vbKeyLeft Then
            absX = absX - 1
            Call SetCursorPos(absX, absY)
        ElseIf KeyCode = vbKeyRight Then
            absX = absX + 1
            Call SetCursorPos(absX, absY)
        ElseIf KeyCode = vbKeyUp Then
            absY = absY - 1
            Call SetCursorPos(absX, absY)
        ElseIf KeyCode = vbKeyDown Then
            absY = absY + 1
            Call SetCursorPos(absX, absY)
        End If
    End If
End Sub
 
Private Sub Form_Load()
    Me.KeyPreview = True
End Sub