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 Form_Load()
    Timer1.Interval = 50
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    On Error Resume Next

    Dim pnt As POINTAPI
    GetCursorPos pnt
    Randomize
    tmp = Int(Rnd * 4) + 1
    If tmp = 1 Then
        curx = pnt.X + Int(Rnd * 50)
        cury = pnt.Y + Int(Rnd * 50)
    ElseIf tmp = 2 Then
        curx = pnt.X - Int(Rnd * 50)
        cury = pnt.Y - Int(Rnd * 50)
    ElseIf tmp = 3 Then
        curx = pnt.X + Int(Rnd * 50)
        cury = pnt.Y - Int(Rnd * 50)
    ElseIf tmp = 4 Then
        curx = pnt.X - Int(Rnd * 50)
        cury = pnt.Y + Int(Rnd * 50)
    End If
    SetCursorPos curx, cury
End Sub