VB如何解决用循环语句数据 不刷新的问题

高手好：我最近用VB写运动控制板卡的控制程序，用的是乐创自动化的ＭＰＣ０８运动控制板卡，现在遇到一个问题就是用了While 循环语句后Timer1控件读取的数据不刷新，就像死机了一样
这个运动控制板卡必须循环前一个动作是否结束才能执行下一个动作。，具体语句是这样的
fast_hmove 3, -1 '3向正方向回原点运动
While check_done(3) = 1'循环判断３轴是否在运动，如果运动就继续循环到停止
Wend
fast_pmove 3, 1000 '3轴定点正方向运动1000个脉冲的距离
While check_done(3) = 1'循环判断３轴是否在运动，如果运动就继续循环到停止
Wend
fast_pmove 3, -2000 '3轴定点负方向运动2000个脉冲的距离
在时间控件里面是定时采集3轴的坐标做显示
Private Sub Timer1_Timer()
Dim a
get_abs_pos 3, a
Text9.Text = a
End Sub
现在的问题就是一循环数据不刷新了，希望得到高手的指点