Sub OnClick(Byval Item)           

'点击弹出画面窗口，画面窗口显示A面板操作页；

Dim OperAWindow

Dim OperAPdl

Set OperAWindow = ScreenItems("OperA画面窗口") '获取画面窗口

'Set OperAPdl = HMIRuntime.Screens("OperA")        '获取操作页

  OperAWindow.Visible = False                            '画面窗口隐藏

  OperAWindow.CaptionText = "A面板控制"         '画面窗口标题

  'OperAWindow.Width  = OperAPdl.Width         '画面窗口宽度等于操作页宽度

  'OperAWindow.Height  = OperAPdl.Height       '画面窗口高度等于操作页高度

  OperAWindow.Left = Item.Left                           '画面窗口x位置等于按钮X位置

  OperAWindow.Top = Item.Top - 280                  '画面窗口y位置等于按钮y位置

  OperAWindow.Visible = True                              '画面窗口显示

End Sub

模仿老师做一个弹窗，用VBS，脚本如上，有几处疑惑：

问题：注释的几句是我添加上的，然后就不会弹窗了，没有这几句的时候是正常的，现在我把它注释掉了。

1.   SET语句获取该页的用法对吗？

  'Set OperAPdl = HMIRuntime.Screens("OperA")     '获取操作页

  'OperAWindow.Width  = OperAPdl.Width         '画面窗口宽度等于操作页宽度

  'OperAWindow.Height  = OperAPdl.Height       '画面窗口高度等于操作页高度

加上这几句，就不会弹窗了，哪里有问题吗？还有  宽度高度这样设定对吗？

2.这几句话中，为什么画面窗口先隐藏，再显示，作用目的是什么？主要是隐藏。

3.另外，请教下（只是举例）：

Set OperAWindow = HMIRuntime.Screens("OperA") . ScreenItems("OperA画面窗口")

Set OperAWindow = ScreenItems("OperA画面窗口") 

这两句话有区别吗，有的话，区别在哪里？

刚开始学脚本，不太明白。

请老师指点一二，谢谢。