你需要的那些属性,都是有的,你可以列出所有的属性查看
Dim o = Forms("窗口1")
For Each c As object In o.Gettype.getproperties output.show(c.name)Next