主题：求共用窗口的隐藏和显示代码

此主题相关图片如下：3.jpg

 Dim frm As object = Forms("窗口1").panel.parent.parent
For Each o As object In frm.Gettype.Getproperties
    If o.name = "AutoHiding" Then
        output.show(frm.AutoHiding)
        Exit For
    End If
Next

老师：有点看不明白，这段代码要放在什么地方，我原来的代码要怎么改？

Static dh As RibbonMenu.ToggleButton
If dh Is Nothing Then
    dh = Ctype(ConfigBar.Items("导航"),RibbonMenu.ToggleButton)
End If
Dim frm As object = Forms("导航").panel.parent.parent

For Each o As object In frm.Gettype.Getproperties
    If o.name = "AutoHiding" Then
        If frm.AutoHiding = True
            dh.Pressed = False
        Else
            dh.Pressed = True
        End If
        Exit For
    End If
Next

谢谢老师