sort nodes in treeview

[arsalansalar]

سلام
کسی بلد است نودها را در تری ویو sort کند؟

[arsalansalar]

کدهای زیر که از msdn گرفته شده است بر اساس طول سورت میکند
چطور می شود بر اساس حروف الفبا سورت کند؟
Private Sub InitializeTreeView1()

' Create the TreeView
treeView1 = New TreeView()
treeView1.Size = New Size(200, 200)

' Create the button and set some basic properties.
button1 = New Button()
button1.Location = New Point(205, 138)
button1.Text = "Set Sorter"

' Handle the click event for the button.
AddHandler button1.Click, AddressOf button1_Click

' Create the root nodes.
Dim docNode As New TreeNode("Documents")
Dim spreadSheetNode As New TreeNode("Spreadsheets")

' Add some additional nodes.
spreadSheetNode.Nodes.Add("payroll.xls")
spreadSheetNode.Nodes.Add("checking.xls")
spreadSheetNode.Nodes.Add("tracking.xls")
docNode.Nodes.Add("phoneList.doc")
docNode.Nodes.Add("resume.doc")

' Add the root nodes to the TreeView.
treeView1.Nodes.Add(spreadSheetNode)
treeView1.Nodes.Add(docNode)

' Add the TreeView to the form.
Controls.Add(treeView1)
Controls.Add(button1)

End Sub


' Set the TreeViewNodeSorter property to a new instance
' of the custom sorter.
Private Sub button1_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles button1.Click

treeView1.TreeViewNodeSorter = New NodeSorter()

End Sub 'button1_Click

' Create a node sorter that implements the IComparer interface.

Public Class NodeSorter
Implements IComparer

' Compare the length of the strings, or the strings
' themselves, if they are the same length.
Public Function Compare(ByVal x As Object, ByVal y As Object) _
As Integer Implements IComparer.Compare
Dim tx As TreeNode = CType(x, TreeNode)
Dim ty As TreeNode = CType(y, TreeNode)

If tx.Text.Length <> ty.Text.Length Then
Return tx.Text.Length - ty.Text.Length
End If
Return String.Compare(ty.Text, tx.Text)

End Function
End Class

[arsalansalar]

اگر کسی کامپوننت تری ویو که امکان سورت بر روی نود ها هم داشته باشد دهد ممنون می شوم.