博途V14中 在wincc 图片库中找到的阀门模板 不能变色，所以自己写了个 但是不起作用，大神帮忙看看，谢谢！

Sub FaceplateScript_1()
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
'  示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：
Dim a
If SmartTags("KV-14006D_CTRL") = 0 Then
 Set a=HMIRuntime.Screens("RootScreen").ScreenItems("VALVE_1")
 a.BackColor=vbRed
Else
 a.BackColor=vbGreen
End If

End Sub