主题：FileManager中按钮字号以及文件名字号的调节

 参考代码

Dim lbx As object = Forms("窗口1").Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")
lbx.Font = new Font("宋体", 12)
Dim obj As object = Forms("窗口1").Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel2.controls("FlowLayoutPanel1")
For Each o As object In obj.controls
    o.Font = new Font("宋体", 12)
Next
'Forms("窗口1").Controls("FileManager1").basecontrol.Controls("SplitContainer1").splitterdistance = 200