VB怎么解决用循环语句数据 不刷新的有关问题

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
 现在的问题就是一循环数据不刷新了，希望得到高手的指点 
------解决方案--------------------
最简单的就是在循环中加 DoEvents() 函数，暂时释放控制权。

另一种控制较紧的方式是在循环中刷新你需要的控件：

Text9.Refresh

或者，刷新你的窗体：

Me.Refresh
------解决方案--------------------
同意of123的观点，检测状态不能放在循环中。
------解决方案--------------------

引用:

在 Timer 中断事件中强制刷新也可以：

Private Sub Timer1_Timer()
 Dim a
 get_abs_pos 3, a
 Text9.Text = a
 Text9.Refresh
End Sub

我估计不是这个问题，timer处理时间很短，退出后，自然会刷新