[ameerah]

استخدم TreeNode

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim treeNode As New TreeNode("محمد")

    treeNode.Nodes.Add("أحمد محمد", "أحمد")
    treeNode.Nodes.Add("كريم محمد", "كريم")
    treeNode.Nodes.Add("خالد محمد", "خالد")

    treeNode.Nodes("أحمد محمد").Nodes.Add("فيصل أحمد محمد", "فيصل")
    treeNode.Nodes("كريم محمد").Nodes.Add("تركي كريم محمد", "تركي")

    TreeView1.Nodes.Add(treeNode)
    TreeView1.ExpandAll()

End Sub

بالنسبة للإسم الكامل مثل (فيصل أحمد محمد) فهو مفتاح مطلوب ويجب أن لا يتشابه مع مفتاح آخر، ولهذا وضع بشكل اسم كامل لتلافي أي خطأ عند وجود شخصين بنفس الاسم.

السطرين الأخيرين الذي بها TreeView1 هما فقط لرؤية النتيجة في أداة TreeView ولا يعني هذا أنه يجب استخدام الأداة.