在wincc中，建立  

"Oven 数据块"."Lump/unprocessed Flux 复烘队列"["Oven 数块"."Lump/unprocessed Flux 复烘队列维数"]

这种变量，如何编写触发事件，让连接这个变量的图形改变颜色

 以下这种做法，可行吗？能简化吗？

Dim Q

Set Q=HMIRuntime.tags("Oven数据块_Lump/unprocessed_Flux复烘队列维数")

Dim W1

Set W1=HMIRuntime.tags("Oven数据块_Lump/unprocessed_Flux复烘队列[1]")

Dim W2

Set W2=HMIRuntime.tags("Oven数据块_Lump/unprocessed_Flux复烘队列[2]")

Dim W3

Set W3=HMIRuntime.tags("Oven数据块_Lump/unprocessed_Flux复烘队列[3]")

Dim W4

Set W4=HMIRuntime.tags("Oven数据块_Lump/unprocessed_Flux复烘队列[4]")

Dim W5

Set W5=HMIRuntime.tags("Oven数据块_Lump/unprocessed_Flux复烘队列[5]")

Dim W6

Set W6=HMIRuntime.tags("Oven数据块_Lump/unprocessed_Flux复烘队列[6]")

Dim W7

Set W7=HMIRuntime.tags("Oven数据块_Lump/unprocessed_Flux复烘队列[7]")

Dim W8

Set W8=HMIRuntime.tags("Oven数据块_Lump/unprocessed_Flux复烘队列[8]")

Dim Y4

Set Y4=ScreenItems("Y4")

Select Case Q.Read

Case 1

 If W1.Read<>0 Then 

    Y4.BackColor=vbWhite

Else Y4.BackColor=vbRed

End If

Case 2

 If W2.Read<>0 Then 

    Y4.BackColor=vbWhite

Else Y4.BackColor=vbRed

End If

Case 3

 If W3.Read<>0 Then 

    Y4.BackColor=vbWhite

Else Y4.BackColor=vbRed

End If

Case 4

 If W4.Read<>0 Then 

    Y4.BackColor=vbWhite

Else Y4.BackColor=vbRed

End If

Case 5

 If W5.Read<>0 Then 

    Y4.BackColor=vbWhite

Else Y4.BackColor=vbRed

End If

Case 6

 If W6.Read<>0 Then 

    Y4.BackColor=vbWhite

Else Y4.BackColor=vbRed

End If

Case 7

 If W7.Read<>0 Then 

    Y4.BackColor=vbWhite

Else Y4.BackColor=vbRed

End If

Case 8

 If W8.Read<>0 Then 

    Y4.BackColor=vbWhite

Else Y4.BackColor=vbRed

End If

End Select