试试窗口的 SizeChanged 事件
Dim a As object = e.Form .panel.Parent.Parenta.Parent.Width = 300 '和窗口的设定宽度一样
a.CanAutoHide = False