Function ActualPointTop_Trigger(Byval Item)
 Dim poly,top,tag,val,val1,val2,val3,val4,val5,val6,val7,val8,val9,val10,val11,val12
 Set poly=HMIRuntime.ActiveScreen.ScreenItems("Polyline1")
  poly.Index=1  
 top=poly.ActualPointTop
 val1 = HMIRuntime.SmartTags("Tag_1")
 val = 410 - val1 * 395 / 1400
 ActualPointTop_Trigger=val
End Function

我这样写可以改变第一个 ActualPointTop 的值动起来，但再改变其他的值不知道怎么去写了