按照官网视频教程做的按个流水动画，为什么动画会一卡一卡的？  是因为整个画面关联变量多了么？

我就是想管道有流水的时候显示水流的样子，大家有好的办法么？我之前看人家好像是用虚线实线交替显示，不知道怎么做？

这是我的代码，照着官网教程弄得。

Function ActualPointTop_Trigger(ByVal Item)
Dim M_poly_02
Dim M_top_02

Set M_poly_02=ScreenItems("M_polyline02")
M_poly_02.Index=1
M_top_02=M_poly_02.ActualPointTop
ActualPointTop_Trigger=M_top_02-1

 If M_top_02<=100 Then
  M_poly_02.ActualPointTop=115
  ActualPointTop_Trigger=115
 End If 

End Function

Function Visible_Trigger(ByVal Item)
Dim M_poly1,M_poly2,M_poly3,M_poly4
Set M_poly1=ScreenItems("M_polyline01")
Set M_poly2=ScreenItems("M_polyline02")
Set M_poly3=ScreenItems("M_polyline03")
Set M_poly4=ScreenItems("M_polyline04")
If HMIRuntime.SmartTags("Test")=False Then
 M_poly1.DeactivateDynamic "ActualPointLeft"
 M_poly2.DeactivateDynamic "ActualPointTop"
 M_poly3.DeactivateDynamic "ActualPointTop"
 M_poly4.DeactivateDynamic "ActualPointTop"
 
 M_poly1.Visible=False
 M_poly2.Visible=False
 M_poly3.Visible=False 
 M_poly4.Visible=False 

Else

 M_poly1.Visible=True
 M_poly1.ActivateDynamic "ActualPointLeft","CycleTime125ms" 
' G1_Valve_State
 Select Case HMIRuntime.SmartTags("Test")
  Case 0
   M_poly2.DeactivateDynamic "ActualPointTop"
   M_poly4.DeactivateDynamic "ActualPointTop"
   M_poly2.Visible=False
   M_poly4.Visible=False  
  Case 1
   M_poly2.Visible=True
   M_poly4.Visible=True
   M_poly2.ActivateDynamic "ActualPointTop","CycleTime125ms"
   M_poly4.ActivateDynamic "ActualPointTop","CycleTime125ms"
  Case Else
   
 End Select  
 
 Select Case HMIRuntime.SmartTags("G2_Valve_State")
  Case 0
   M_poly3.DeactivateDynamic "ActualPointTop"
   M_poly3.Visible=False 
  Case 1
   M_poly3.Visible=True 
   M_poly3.ActivateDynamic "ActualPointTop","CycleTime125ms"
  Case Else
   
 End Select  
 
End If
End Function