Cделать, чтобы мышь бегала в разные стороны

    Dim R As Random = New Random
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Cursor.Position = New Point(R.Next(0, 1280), R.Next(0, 1024))
    End Sub

    Dim R As Random = New Random
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NewPoint As Point = New Point(R.Next(0, 1280), R.Next(0, 1024))
        SetCursorPos(NewPoint)
    End Sub
 
    Sub SetCursorPos(ByVal CORD As Point)
        Dim A As Integer
        If CORD.X > CORD.Y Then
            A = CORD.X
        Else
            A = CORD.Y
        End If
        For i = 0 To A Step 1
            If Cursor.Position.X < CORD.X Then
                Cursor.Position = New Point(Cursor.Position.X + 1, Cursor.Position.Y)
            ElseIf Cursor.Position.X > CORD.X Then
                Cursor.Position = New Point(Cursor.Position.X - 1, Cursor.Position.Y)
            End If
            If Cursor.Position.Y < CORD.Y Then
                Cursor.Position = New Point(Cursor.Position.X, Cursor.Position.Y + 1)
            ElseIf Cursor.Position.Y > CORD.Y Then
                Cursor.Position = New Point(Cursor.Position.X, Cursor.Position.Y - 1)
            End If
            Threading.Thread.Sleep(1)
            If Cursor.Position.X = CORD.X And Cursor.Position.Y = CORD.Y Then
                Exit Sub
            End If
        Next
    End Sub