用代码设置
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")sp.SplitterDistance = sp.Width * 0.5