TreeView展开所有节点

'-----------------------展开所有节点，如=false则折叠所有节点

    Dim i As Integer

    For i = 1 To TreeView1.Nodes.Count

    TreeView1.Nodes(i).Expanded = True

    Next i