参考
Dim sc As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")sc.SplitterDistance = 50
http://www.foxtable.com/help/topics/0819.htm