试试
Dim lbx As object = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")lbx.Font = New Font("宋体", 12)
lbx.backcolor = color.red