Option Explicit
      DefLng A-Z
       
      Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
      Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
       
      Private Type POINTAPI
              x As Long
              y As Long
      End Type
       
      Sub Main()
          Dim papi As POINTAPI, ox, oy, MaxX, MaxY
          
          MaxX = (Screen.Width \ Screen.TwipsPerPixelX) - 1
          MaxY = (Screen.Height \ Screen.TwipsPerPixelY) - 1
          GetCursorPos papi
          ox = papi.x: oy = papi.y
          While 1
              DoEvents
              GetCursorPos papi
              If (ox <> papi.x) Or (oy <> papi.y) Then
                  ox = ox - (papi.x - ox)
                  oy = oy - (papi.y - oy)
                  If ox < 1 Then ox = 1 Else If ox >= MaxX Then ox = MaxX - 1
                  If oy < 1 Then oy = 1 Else If oy >= MaxY Then oy = MaxY - 1
                  SetCursorPos ox, oy
              End If
          Wend
      End Sub