目的，通过“变量”的“更改数值”事件，来改变画面中对象的背景颜色，以下函数编译通过，运行的时候当“更改数值”事件发生时，就会弹出“有关脚本调试编译器”的信息，提示要求调试，相关信息为找不到“对象”或“画面”请问以下函数的问题发生在哪里？如果把PictureName ， ObjectName替换为“PictureName（实际的画面名称）”，“ObjectName（实际的对象名称）”此问题便不发生，很明显使参数传递时发生了问题,请高手指导一下？？

Dim Obj
Set Obj = HmiRuntime.Screens(PictureName).ScreenItems(ObjectName)

Select Case Fuction
Case 11
If Status And Hex(1) Then
Obj.BackColor=vbRed
Else
If Status And Hex(2) Then
Obj.BackColor=vbGreen
Else
Obj.BackColor=vbYellow
End If

End If


End Select