Private Sub Command2_Click()

   Dim I As Long
　For I = 1 To TreeView1.Nodes.Count
　　TreeView1.Nodes(I).Expanded = True '展开所有节点
　Next I
End Sub

Private Sub Command3_Click()

   Dim I As Long
　For I = 1 To TreeView1.Nodes.Count
　　TreeView1.Nodes(I).Expanded = False '收起所有节点
　Next I
End Sub

效   果: