设置第一个分区的扩展尺寸,宽度为500,高度为400:
Dim p As WinForm.SplitPanel = Forms("窗口2").Controls("SplitContainer1").Panel1p.ExtendSize = New Size(500,400)