[Aly El-Haddad]

السلام عليكم،
ضع على Form1:
TreeView1
ListView1

و الآن أستبدل كود Form1 بالكود التالي:

PHP كود :

Public Class Form1

    Private treeValues As New Dictionary(Of String, String())

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillTree()
        ListView1.View = View.Tile
        FillTreeValues(TreeView1.Nodes)
    End Sub

    Private Sub FillTree()
        For Each N As TreeNode In TreeView1.Nodes
            N.Nodes.Clear()
            N.Nodes.Add(N.Index & " - 0", "Node " & N.Index & " - 0")
            N.Nodes.Add(N.Index & " - 1", "Node " & N.Index & " - 1")
            N.Nodes.Add(N.Index & " - 2", "Node " & N.Index & " - 2")
            N.Expand()
        Next
    End Sub

    Private Sub FillTreeValues(ByVal nodes As TreeNodeCollection)
        For Each N As TreeNode In nodes
            Dim list As New List(Of String)
            list.Add("First value of " & N.Name)
            list.Add("Second value of " & N.Name)
            list.Add("Third value of " & N.Name)
            treeValues.Add(N.Name, list.ToArray())
            FillTreeValues(N.Nodes)
        Next
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        ListView1.Items.Clear()
        Dim vals As String() = treeValues(e.Node.Name)
        For I As Integer = 0 To vals.Length - 1
            ListView1.Items.Add(vals(I))
        Next
    End Sub
End Class