缺少头文件引用
#include "apdefap.h"
将上面这句添加到项目函数的头部即可。不过这是C脚本而不是VBS。

VBS读写控件的属性值时，事先必须定义控件对象，在设定时已经将它所在的画面名称加进去了。如：
Dim objRectangle
Set objRectangle = ScreenItems("Rectangle1")
objRectangle.BackColor = RGB(255,0,0)
也可以这样：
Dim objRectangle
Set objRectangle = HMIRuntime.Screens("ScreenWindow1.ScreenWindow1").ScreenItems("Rectangle1")
objRectangle.BackColor = RGB(255,0,0)