写一个循环，其中Sleep（1）使整个事情太慢但没有睡眠太快

Question

我有以下代码：

Do
    For ystep = 1 To 40
        For xstep = 1 To 170
            Cursor.Position = New Point(uleftx + (xstep * x), ulefty + (ystep * y))
            Threading.Thread.Sleep(1)
        Next xstep
    Next ystep
Loop

所有这一切都是将鼠标移动到屏幕上，一次跳过几个像素。如果我在没有Sleep命令的情况下运行此代码，它会滞后于整个计算机，并且鼠标的运动都是不稳定的，并且它无法使用。但是，使用Sleep（1）命令，它非常流畅且可用，但我觉得它太慢了。理想情况下，我希望这个速度至少快两倍，但希望在3-4倍的速度下更快。关于如何加快速度的任何想法？

旁注：我知道没有办法退出循环。没关系，这段代码只适合我。