wincc6.2怎么用VB脚本改变指示灯的颜色，如运行反馈是绿色，故障反馈是红色，停止时蓝色，脚本怎么写啊
问题补充：
如果要是闪烁，怎么写VB，运行，故障时闪烁，停止不闪烁
最佳答案
FunctionFillColor_Trigger(ByValItem)
DimAA
SetAA=HMIRuntime.Tags("AA")
Dimbb
Setbb=HMIRuntime.Tags("bb")
DimFF
SetFF=ScreenItems("圆1")
IfAA.Read=1Then
FF.BackColor=RGB(255,0,0)
ElseIfbb.Read=1Then
FF.BackColor=RGB(0,128,0)
ElseIfAA.Read=0Andbb.Read=0Then
FF.BackColor=RGB(0,0,255)
EndIf
EndIf
EndIf
EndFunction
代码如上，其中AA是故障反馈变量，bb是运行反馈信号变量圆1是我画的一个圆代表指示灯。如图，在圆的属性—颜色—填充颜色的动态中写VB脚本。
图片说明：
61167285c317db0BF8cc82FCac3fb4bfe5a3afff19907a91CE0d084331f7abe7
提问者对于答案的评价：
管用
专家置评
已阅，最佳答案正确。
