请教高手下,怎么让插补循环呢~我用的VB~

我想让一组插补能无限期的运行可是一次只能是30000多个脉冲数,再多了就溢出,只好让它循环,还是让各位老大看下这段码错在哪儿了啊??
只是大概的
a=check_done(1)     先检测1轴是否运动完毕
if a=1 then              
a=check_done(1)
elseif a=0 then
call con_line2(1,2000,2,3000)
end if
这样为什么不能循环啊??
还有我这样做能循环了可是每次循环时都要停顿下不能很流畅的运动
是TIMER控件的timer事件
Timer1.Interval = 1
a = check_done(1)
If a = 0 Then
set_vector_conspeed (7800)
Call con_line2(1, 3200 * 10, 2, (3200 / b) * 10)
End If
我是菜鸟,还请各位高手指教下```!!!!在此谢过了~!!!!

a=check_done(1)     先检测1轴是否运动完毕
if a=1 then              
a=check_done(1)
elseif a=0 then
a=check_done(1)
call con_line2(1,2000,2,3000)
end if
是这样的,发错了

不是的,我用TIMER控件以经能够循环了,只是中间有停顿
我是想问上楼上的师兄能否不用TIMER实现呢?
  我需要的是流畅的循环不是要停顿的,用TIMER不能运动的很流畅