可以在sizechanged事件写代码
Dim frm = e.form.panel.parent.parentIf frm IsNot Nothing Then frm.height = 200End If