Kod:
Private Sub Komut40_Click()
Dim sd As Integer
Dim Node As MSComctlLib.Node
sd = TreeView1.Nodes(TreeView1.SelectedItem.Index).Index
Dim i As Integer
Dim strNodes As String
For i = 1 To sd
With TreeView1.Nodes(i)
.Expanded = True
Call sec
End With
Next i
End Sub