求助 从一个坐标到另一个坐标

遇到个问题了，就是坐X坐标到Y坐，缓缓的移过去，用循环能达到效果，但是一蹭一蹭的，这样画过去的话边缘无法达到我想要的效果，
然后想到用时钟，想直接在事件中加参数，调用起来方便。但是自带的控件事件是不能加参数的，重载又不会弄杯具了。。求帮忙
贴上我想要的   
public Sub Timer1_Tick(起点x as Integer ,起点Y as Integer ,终点X as Integer ,终点Y as Integer )/* Handles Timer1.Tick*/


起点x=起点x+5
起点y=起点y+5
 SetCursorPos (起点x,起点y)
if 起点x=终点x and 起点Y=终点Y
 Timer1.Interval =0
end if

没开软件，临时在贴子里写的，显然做自带的控件是报错的，想重载个timer控件，能实现上面的怎么写、、求帮助
如果有其他更好的办法的话也行的
今天刚来这论坛，只有20分