TreeView1.Nodes.Clear
TreeView1.Nodes.Add , "tvwfirst", "L1", "所有影片", 1
TreeView1.Nodes.Add "L1", tvwChild, "L21", "影片类型", 2
TreeView1.Nodes.Add "L1", tvwChild, "L23", "IMDB评分", 2
TreeView1.Nodes.Add "L1", tvwChild, "L22", "影片年代", 2
TreeView1.Nodes.Add "L21", tvwChild, "L211","名称", 3
TreeView1.Nodes(2).Sorted = True
TreeView1.Nodes(1).Selected = True
以上是增加1级,2级.3级目录的例子