我看到论坛中有很多这方面的帖子，但是都没让我弄明白，今天花了一上午的时间终于弄懂了
在这里先感谢一下“满”同志，但是还有个问题没有解决，就是点击弹出的操作对话框出现的位置不是在鼠标点击的位置，我使用的是以下一段VB程序
鼠标按下时VBS脚本：
Sub MouseDown(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
Dim PIC
Set PIC = ScreenItems("画面窗口1")''''选择画面窗口
PIC.Visible = False
PIC.Left = x +10
PIC.Top = Y ''''使窗口移动到鼠标位置
PIC.captiontext="阀门号"
PIC.TagPrefix = "F1."'''' 定义变量前缀
PIC.TagPrefix = "M1."'''' 定义变量前缀
End Sub
鼠标释放时VBS脚本：
Sub MouseDown(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
ScreenItems("画面窗口1").Visible = True
End Sub
请各位大侠帮忙解决一下，小弟这里感谢了！

下面把我制作方法说一下，以供像我这样的初学者借鉴！
1、建立结构变量（例如：阀门F1)及结构变量包含的变量名（例如：包含ON、OFF...）；
2、建立变量，选择类型时选择刚建好的结构变量（这样就生成了变量“F1.ON、F1.OFF”）；
3、创建调用画面（DIAOYONG.PDL)，在画面中放置所需要的按钮、输入输出域等，连接对应的变量｛连接变量时，把变量的前缀（例如：“F1.”删去，提示没有该变量时点忽略）｝；
4、创建主画面（暂时命名为MAIN.PDL），放置画面窗口，窗口的尺寸和调用的画面尺寸相同（画面显示属性为否，名称为“DIAOYONG.PDL”)，放置阀门，在鼠标按下和释放的事件中输入以下程序
鼠标按下时VBS脚本：
Sub MouseDown(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
Dim PIC
Set PIC = ScreenItems("画面窗口1")''''选择画面窗口
PIC.Visible = False
PIC.Left = x +10
PIC.Top = Y ''''使窗口移动到鼠标位置
PIC.captiontext="阀门号"‘’‘填入阀门的序号
PIC.TagPrefix = "F1."'''' 定义变量前缀
End Sub
鼠标释放时VBS脚本：
Sub MouseDown(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
ScreenItems("画面窗口1").Visible = True
End Sub

以上就大功告成，唯有就是没有解决刚开始我提出的问题，希望大虾们帮忙解决一下！
有什么不对的地方请各位指正