加上滚动条
Dim lbx As object = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")
lbx.HorizontalScrollbar= True