Private Sub Command1_Click() '展開所有節點
Dim gen As Node
For Each gen In TreeView1.Nodes
If gen.Children <> 0 Then gen.Expanded = True
Next
End Sub
Private Sub Command2_Click() '收縮所有節點
Dim gen As Node
For Each gen In TreeView1.Nodes
If gen.Children <> 0 Then gen.Expanded = False
Next
End Sub