提几个意见：

1. 细节封装太过，而且没考虑同一个画面2个控件同名的情况。

2. 没有注释

3. 变量名称随意，比如A,B,I,J

4. 行缩进不规范

以下是我的二级弹出菜单脚本，供你参考：

Sub OnClick(ByVal Item)                

Dim obj0

Dim name0

Dim name1

Dim name2

Dim offsX

Dim offsY

name0 = "FV_3" 'main画面中的二级菜单容器名

name1 = "SV10" '归一化管理前缀名和容器标题

name2 = "阀门测试.Pdl" '二级菜单实例名

offsX = -100 '容器水平位置，+向右,-向左

offsY = 0 '容器垂直位置，+向下,-向上

Set obj0 = Parent.Parent.ScreenItems(name0)

obj0.Visible = False

obj0.PictureName = name2

obj0.CaptionText = name1

obj0.Left = Item.Left + offsX

obj0.Top = Item.Top + offsY

obj0.TagPrefix = name1

obj0.Visible = True

End Sub