Public Class Basic
 
	Private myCode As String
	Private myDescription As String
 
	Public Property code() As String
                ...
	End Property
 
	Public Property description() As String
		...
	End Property
End Class

        Friend _Basic As GenericList(Of Basic)
 
	Private _BindingBasicAs New BindingSource
 
        .....
        _BindingBasic.DataSource = _Basic

		For Each locElement As Typeof(myElementSource.List) In myElementSource.List
			Dim locTreeNode As New TreeNode
 
			With locTreeNode
				.Text = locElement.code
				.Tag = locElement
			End With
 
			_TreeView.Nodes.Add(locTreeNode)
		Next