窗口afterLoad事件
Dim tab = Forms("窗口1").panel.parent.parent'For Each o As object In tab.Gettype.getproperties 'output.show(o.name)'Nexttab.showtabs = False