Dim objTrend
Set objTrend=ScreenItems("Trend")
Select Case HMIRuntime.Language
Case 2052
objTrend.TrendIndex =0
objTrend.TrendRename="液位 1"
objTrend.TrendIndex =1
objTrend.TrendRename="液位 2"
case else
objTrend.TrendIndex =0
objTrend.TrendRename="LEVEL 1"
objTrend.TrendIndex =1
objTrend.TrendRename="LEVEL 2"
End select