只能变通处理,你去编写sizeChanged事件,判断
If e.form.width = 0 Then Dim obj = Forms("窗口2").panel.parent.parent obj.AutoHiding = False
else
Dim obj = Forms("窗口2").panel.parent.parent obj.AutoHiding = trueEnd If