Can't work out why no nodes are showing with this...

[Kris Bennett]

I have formed a simple example that I cannot seem to get working, basically no items appear to be visible in the tree?:

Imports Aga.Controls.Tree

<System.ComponentModel.DesignerCategory("")>
Public Class RoleAccessTree
    Inherits TreeViewAdv

    Public WithEvents RootCol As New TreeColumn("Role", 200) With {.MinColumnWidth = 16}
    Public WithEvents DescCol As New TreeColumn("Description", 200) With {.MinColumnWidth = 16}

  Private WithEvents RootColumnTextBox As New NodeControls.NodeTextBox() With {.DataPropertyName = "Text", .ParentColumn = RootCol, .EditEnabled = False}

    Private WithEvents DescColumnTextBox As New NodeControls.NodeTextBox() With {.DataPropertyName = "Description", .ParentColumn = DescCol, .EditEnabled = False}

    Dim TreeModal As New TreeModel

    Public Sub New()
        If Me.DesignMode OrElse System.ComponentModel.LicenseManager.UsageMode = System.ComponentModel.LicenseUsageMode.Designtime Then

        Else

            Me.UseColumns = True
            Me.Columns.Add(RootCol)
            Me.Columns.Add(DescCol)
            Me.GridLineStyle = Aga.Controls.Tree.GridLineStyle.HorizontalAndVertical

            Me.NodeControls.Add(RootColumnTextBox)

            Me.NodeControls.Add(DescColumnTextBox)

            Me.Model = TreeModal

            LoadTree()
        End If
    End Sub

    Public Sub LoadTree()

        Me.BeginUpdate()

        TreeModal.Nodes.Clear()

        TreeModal.Nodes.Add(New Node With {.Text = "asd"})

        Me.EndUpdate()

    End Sub

End Class

What is going on??

Thanks,
Kris