感谢万版主的回答
Set obj =HMIRuntime.Screens("NewPdl1.PictureWindow1:NewPdl0").ScreenItems("Circle1")
obj.backcolor=vbRed
PictureWindow1为NewPdl1中画面子窗口，NewPdl0在PictureWindow1画面窗口中显示，
Circle1为NewPdl0中控件
在全局脚本可以设置不同窗口内控件的属性，在窗口内只能设置本窗口内控件的属性。
Dim obj
Dim obj1
Set obj =HMIRuntime.Screens("NewPdl1")
Set obj1=obj.ScreenItems("Circle1")
obj1.backcolor=vbRed