设置自动隐藏,想显示的时候,可以取消自动隐藏。
Dim o As object = Forms("窗口1").panel.parent.parento.AutoHiding = True
'o.AutoHiding = False