我建了一个action代码是这样的
Option Explicit
Function action

Dim tag
Dim objDeng

tag = HMIRuntime.Tags("NewTag")
objDeng = HMIRuntime.Screens("NewPdl1").ScreenItems("deng")

If tag.Value Mod 2 = 0 Then
objDeng.BackColor = RGB(255, 0, 0)
Else
objDeng.BackColor = RGB(0, 255, 0)
End if

End Function

其中NewPdl1是我建的一个画面，其中包含一个圆（deng），NewTag是我建的一个变量，500毫秒递增1。另外，这个action的触发器我设置成为NewTag变量。其他设置过。
现在我想要实现的就是当这个变量为偶数时圆为红色，奇数圆为绿色。但当我运行这个画面时，并没有出项我想象中的效果，圆始终都是黑色的，我是不是哪边不对啊？