Display Hierarchical Representations of Items with Tree view control using Program:

DISPLAY HIERARCHICAL REPRESENTATIONS OF ITEMS WITH TREE VIEW CONTROL USING PROGRAM:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim TreeView1 As TreeView

        TreeView1 = New TreeView()

        TreeView1.Location = New Point(10, 10)

        TreeView1.Size = New Size(250, 250)

        Me.Controls.Add(TreeView1)

        TreeView1.Nodes.Clear()

        Dim root As TreeNode

        root = New TreeNode("Applications")

        TreeView1.Nodes.Add(root)

        TreeView1.Nodes(0).Nodes.Add(New TreeNode("Project 1"))

        For loopindex As Integer = 1 To 5

            TreeView1.Nodes(0).Nodes(0).Nodes.Add(New  _

                TreeNode("Sub Project 1." & Str(loopindex)))

        Next loopindex

        TreeView1.Nodes(0).Nodes.Add(New TreeNode("Project 2"))

        For loopindex As Integer = 1 To 6

            TreeView1.Nodes(0).Nodes(1).Nodes.Add(New  _

                TreeNode("Sub Project 2." & Str(loopindex)))

        Next loopindex

        Me.Text = "Display hierarchical representations of items"

    End Sub

End Class