想用VB实现检测 多段连续加工程序中的每一条代码是否在运行，若在执行就利用label.caption=".....该段代码正在执行"例如
Private Sub Command4_Click()
GetParam
open_list
outport_bit 1, 1, 0
con_pmove 1, 2000
arc_final 1, 2, 1, 2000, 0, 1000
con_pmove 1, 2000
arc_final 1, 2, -1, 1000, 1000, 1000
con_pmove 2, 2000
arc_final 1, 2, 1, 0, 2000, 1000
con_pmove 2, 2000
arc_final 1, 2, -1, -1000, 1000, 1000
con_pmove 1, -2000
arc_final 1, 2, 1, -2000, 0, 1000
con_pmove 1, -2000
arc_final 1, 2, -1, -1000, -1000, 1000
con_pmove 2, -2000
arc_final 1, 2, 1, 0, -2000, 1000
con_pmove 2, -2000
arc_final 1, 2, -1, 1000, -1000, 1000
outport_bit 1, 1, 1
close_list
End Sub
现在要检测con_pmove 1, 2000这条是否运行，并返回label.caption="直线AB on_pmove 1, 2000"就是要让label控件显示 直线AB on_pmove 1, 2000
要检测arc_final 1, 2, 1, 2000, 0, 1000这条是否在运行，返回label.caption="圆弧BC arc_final 1, 2, 1, 2000, 0, 1000"