Dim root As New RadTreeNode()
        root.Expanded = True
        root.Text = "Root"
        root.Name = "Root"
        Me.RadTreeView1.Nodes.Add(root)
        Dim telerikTreeNode = New RadTreeNode With
        {
            .Expanded = True,
            .Name = "Child1",
            .Text = "Child1",
            .Tag = "test",
            .Font = New Font("Arial", 12.0F, FontStyle.Regular)
        }

        Me.RadTreeView1.Nodes("Root").Nodes.Add(telerikTreeNode)
        For index = 2 To 5
            Dim child As New RadTreeNode()
            child.Text = "Child" & index
            Me.RadTreeView1.Nodes("Root").Nodes.Add(child)
        Next