TreeView控件设置问题
如下图所示

如何更改为下面图显示的样式

谢谢高手帮忙
[解决办法]

Private Sub Form_Load()
   TreeView1.Indentation = 120
   TreeView1.Nodes.Clear
   TreeView1.ImageList = ImageList1
   '添加根节点
   TreeView1.Nodes.Add , , "A01", "程序 程序及步骤...", 1
   '添加带上级的节点
   TreeView1.Nodes.Add "A01", 4, "B01", "01.踏面实验", 2
   TreeView1.Nodes.Add "A01", 4, "B02", "02.制动钳实验", 2
   '其它节点
   TreeView1.Nodes.Add "B01", 4, "C01", "C0001", 3
   TreeView1.Nodes.Add "B01", 4, "C02", "C0002", 3
   TreeView1.Nodes.Add "B02", 4, "D01", "D0001", 3
   TreeView1.Nodes.Add "B02", 4, "D02", "D0002", 3
   '展开根节点
   TreeView1.Nodes.Item("A01").Expanded = True
End Sub