Dim sp = Forms("动态测试").Controls("SplitContainer1")
msgbox(sp.SplitterDistance)
msgbox(sp.SplitterWidth)
msgbox(sp.width - sp.SplitterDistance - sp.SplitterWidth)