引用7楼详细内容：

这个脚本存在几个小问题：

1. 这个只能被调用一次，或者说只能同时显示一个画面窗口，因为你的只指定了一个画面窗口名称。

2. 窗口定位存在问题，如果按钮是在画面边缘，可能存在画面窗口不能完全显示的情况。

但因为现在用的是点击事件，不排除你会为每个设备单独做一个画面窗口。建议把脚本改为项目函数进行调用，都这个脚本进行有些修改也是可以改成重复调用多个画面窗口的。

画面窗口位置建议引入画面窗口的长和宽进行比较，结合按钮位置与长宽选择窗口是出现在按钮左边还是按钮右边，这样可以有效的避免画面窗口出现在屏幕外。

引用6楼详细内容：

转 黄河远上

建好结构变量后
在鼠标左键里，选择VBS动作：
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim PIC
Set PIC = ScreenItems("画面窗口1")'选择画面窗口
PIC.Visible = False
PIC.Left = x +10
PIC.Top = Y '使窗口移动到鼠标位置
PIC.TagPrefix = "TAG_6."' 定义变量前缀
PIC.Visible = True