主题：之前在论坛上看到过一个遍历控件所有属性的例子，现在找不到了，请问谁收藏了。

Dim o = Forms("窗口1")

For Each c As object In o.Gettype.getproperties
    output.show(c.name)
Next
For Each c As object In o.Gettype.getMethods
    output.show(c.name)
Next

For Each item As object In [Enum].GetValues(Gettype(system.io.drivetype))
    Output.Show(item & "-" & item.Tostring())
Next

-----------------------

For Each item As object In [Enum].GetValues(Gettype(IVisualStyle))
    Output.Show(item & "-" & item.Tostring())
Next