请问下大神，我现在是想把趋势曲线中的名称修改一下，但是是否是将tr1.Label ="冷却水回水温度1"改为tr1.Name ="冷却水回水温度1"但是复选框的选择其他选项就切换不过来了，请大神帮忙看看

Sub SelIndex_OnPropertyChanged(Byval Item, Byval value)                                    

Dim objtc,Listbox

Dim tr1,tr2,tr3,tr4,tr5,tr6,tr7,tr8,tr9,tr10,tr11,tr12

Dim ValueAxis,ValueAxis2

Dim Value1

Set objtc = ScreenItems("TrendControl")

Set Listbox = ScreenItems("Listbox")

Value1=Listbox.SelIndex

'Msgbox Value1

Set tr1 = objtc.GetTrend("Trend1")

Set tr2 = objtc.GetTrend("Trend2")

Set tr3 = objtc.GetTrend("Trend3")

Set tr4 = objtc.GetTrend("Trend4")

Set tr5 = objtc.GetTrend("Trend5")

Set tr6 = objtc.GetTrend("Trend6")

Set tr7 = objtc.GetTrend("Trend7")

Set tr8 = objtc.GetTrend("Trend8")

Set tr9 = objtc.GetTrend("Trend9")

Set tr10 = objtc.GetTrend("Trend10")

Set tr11 = objtc.GetTrend("Trend11")

Set tr12 = objtc.GetTrend("Trend12")

Set ValueAxis = objtc.GetValueAxis("ValueAxis1")

Set ValueAxis2 = objtc.GetValueAxis("ValueAxis2")

'数值轴默认都ValueAxis，ValueAxis2默认隐藏

ValueAxis2.Visible = 0

tr1.YAxis = ValueAxis

If Value1=1 Then 

 HMIRuntime.Tags("ni").Write 12

ValueAxis.BeginValue ="0"

ValueAxis2.EndValue ="60"

'该组有2个数值轴，默认都ValueAxis，tr1的数值轴设置为ValueAxis2

ValueAxis2.Visible = 1

ValueAxis2.BeginValue ="0"

ValueAxis2.EndValue ="1000"

tr1.YAxis = ValueAxis

tr2.YAxis = ValueAxis

tr3.YAxis = ValueAxis

tr4.YAxis = ValueAxis

tr5.YAxis = ValueAxis

tr6.YAxis = ValueAxis

tr7.YAxis = ValueAxis

tr8.YAxis = ValueAxis

tr9.YAxis = ValueAxis2

tr10.YAxis = ValueAxis2

tr11.YAxis = ValueAxis2

tr12.YAxis = ValueAxis2

tr1.TagName ="过程值归档\LDS_In_Temp1"

tr2.TagName ="过程值归档\LDS_Out_Temp1"

tr3.TagName ="过程值归档\LDS_In_Temp2"

tr4.TagName ="过程值归档\LDS_Out_Temp2"

tr5.TagName ="过程值归档\LDS_In_Temp3"

tr6.TagName ="过程值归档\LDS_Out_Temp3"

tr7.TagName ="过程值归档\LDS_In_Temp4"

tr8.TagName ="过程值归档\LDS_Out_Temp4"

tr9.TagName ="过程值归档\LDS_In_Press1"

tr10.TagName ="过程值归档\LDS_Out_Press1"

tr11.TagName ="过程值归档\LDS_In_Press2"

tr12.TagName ="过程值归档\LDS_Out_Press2"

'添加每个趋势的标签注释，页面的Ruler控件，也添加“标签列”，方便查看注释

tr1.Label ="冷冻水回水温度1"

tr2.Label ="冷冻水供水温度1"

tr3.Label ="冷冻水回水温度2"

tr4.Label ="冷冻水供水温度2"

tr5.Label ="冷冻水回水温度3"

tr6.Label ="冷冻水供水温度3"

tr7.Label ="冷冻水回水温度4"

tr8.Label ="冷冻水供水温度4"

tr9.Label ="冷冻水供水压力1"

tr10.Label ="冷冻水回水压力1"

tr11.Label ="冷冻水供水压力2"

tr12.Label ="冷冻水回水压力2"

Else If Value1 = 2 Then 

HMIRuntime.Tags("ni").Write 8

ValueAxis.BeginValue ="0"

ValueAxis.EndValue ="60"

'该组有2个数值轴，默认都ValueAxis，tr1的数值轴设置为ValueAxis2

tr1.YAxis = ValueAxis

tr2.YAxis = ValueAxis

tr3.YAxis = ValueAxis

tr4.YAxis = ValueAxis

tr5.YAxis = ValueAxis

tr6.YAxis = ValueAxis

tr7.YAxis = ValueAxis

tr8.YAxis = ValueAxis

tr1.TagName ="过程值归档\LQS_In_Temp1"

tr2.TagName ="过程值归档\LQS_Out_Temp1"

tr3.TagName ="过程值归档\LQS_In_Temp2"

tr4.TagName ="过程值归档\LQS_Out_Temp2"

tr5.TagName ="过程值归档\LQS_In_Temp3"

tr6.TagName ="过程值归档\LQS_Out_Temp3"

tr7.TagName ="过程值归档\LQS_In_Temp4"

tr8.TagName ="过程值归档\LQS_Out_Temp4"

tr9.TagName =" "

tr10.TagName =" "

tr11.TagName =" "

tr12.TagName =" "

tr1.Label ="冷却水回水温度1"

tr2.Label ="冷却水供水温度1"

tr3.Label ="冷却水回水温度2"

tr4.Label ="冷却水供水温度2"

tr5.Label ="冷却水回水温度3"

tr6.Label ="冷却水供水温度3"

tr7.Label ="冷却水回水温度4"

tr8.Label ="冷却水供水温度4"

tr9.Label =" "

tr10.Label =" "

tr11.Label =" "

tr12.Label =" "

Else If Value1=3 Then 

 HMIRuntime.Tags("ni").Write 10

ValueAxis.BeginValue ="0"

ValueAxis.EndValue ="0.6"

tr1.TagName ="ProcessValueArchiveDDR12"

tr2.TagName ="ProcessValueArchiveDDR17"

tr3.TagName ="ProcessValueArchiveDDR14"

tr4.TagName ="ProcessValueArchiveDDR16"

tr5.TagName ="ProcessValueArchiveDDR15"

tr6.TagName ="ProcessValueArchiveP_TEL8_data3"

tr7.TagName ="ProcessValueArchiveP_TEL9_data3"

tr8.TagName ="ProcessValueArchiveP_TEL10_data3"

tr9.TagName ="ProcessValueArchiveP4_AnalogNO11"

tr10.TagName ="ProcessValueArchiveP4_AnalogNO12"

'添加每个趋势的标签注释，页面的Ruler控件，也添加“标签列”，方便查看注释

tr1.Label ="万丽"

tr2.Label ="消防局"

tr3.Label ="青田"

tr4.Label ="蜈支洲"

tr5.Label ="污水厂"

tr6.Label ="*****压力"

tr7.Label ="滨海路压力"

tr8.Label ="土福湾压力"

tr9.Label ="出水压力1"

tr10.Label ="出水压力2"

End IF

End IF

End IF

End Sub