VB6中鼠标控制问题，控制语句不起作用

Question

我编写了一段控制鼠标停留位置的代码，但是一点效果都没有，代码如下：
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

SetCursorPos (Me.left + (Me.Width \ 2)) \ 15, (Me.top + (Me.Height \ 2)) \ 15

End Sub

后来通过Sleep函数
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
，将鼠标从另一个位置移动到想要的位置，就产生了效果，但是我移动鼠标时，鼠标指针还是从移动前的位置（主是程序控制前的位置）开始移动，而不是处理后的位置，不知道有什么方法可以解决？