主题：窗口是如何点击高级展开的？代码如何写？

控制窗口高度吧

static flag As Boolean = True
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
If flag Then
    e.Form.baseform.height += 150 + 30
Else
    e.Form.baseform.height = sp.Panel1.height + 30
End If
flag = not flag