TreeView控件设置问题

Question

如下图所示如何更改为下面图显示的样式谢谢高手帮忙

Answer 1

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

Answer 2

我知道你的问题所在了。你在：
TreeView1.Nodes.Clear 
之后，加上：
TreeView1.LineStyle = 0