关于label.opition控件求助

我们编了一个程序主要是完成零件加工的，程序段如下
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
想在没完成一段的后面加一个label4.opition="直线AB con_pmove 1, 2000 "主要是改变这个中的显示。但是编辑了只显示最后一个label4.opition的内容。我们改的程序如下：
Private Sub Command4_Click()
GetParam
open_list
outport_bit 1, 1, 0
con_pmove 1, 2000
label4.opition="直线AB con_pmove 1, 2000 "
arc_final 1, 2, 1, 2000, 0, 1000
label4.opition="圆弧BC arc_final 1, 2, 1, 2000, 0, 1000 "
con_pmove 1, 2000
label4.opition="直线AB con_pmove 1, 2000 "
arc_final 1, 2, -1, 1000, 1000, 1000
后面每段加工程序后接上相应的label4.opition
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
我们的零件图如下：[local]1[/local] 但是最后只显示最后一个label..opition的内容。如何实现每段的都显示？