Option Explicit On
Option Strict On
 
Public Class Form1
    Inherits Form
 
    '// Windows Designer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        '// sort the nodes
 
        Dim tn As TreeNode = Me.TreeView1.Nodes(0) '// root
        Dim arr As New ArrayList()
        arr.AddRange(tn.Nodes)
        arr.Sort(New MyComparer())
        '// arr.Reverse 
        tn.Nodes.Clear()
        Dim nodes As TreeNode() = CType(Array.CreateInstance(GetType(TreeNode), _
          arr.Count), TreeNode())
        arr.CopyTo(nodes)
        tn.Nodes.AddRange(nodes)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        '// fill treeview with nodes
 
        Dim root, tn As TreeNode
        Dim r As New Random()
        root = New TreeNode("root")
        While root.Nodes.Count < 20
            tn = New TreeNode(r.Next.ToString)
            tn.Tag = CInt(tn.Text)
            root.Nodes.Add(tn)
        End While
        Me.TreeView1.Nodes.Add(root)
    End Sub
End Class
 
Public Class MyComparer
    '// MyComparer
 
    Implements IComparer
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
      Implements System.Collections.IComparer.Compare
        Dim tn1 As TreeNode = CType(x, TreeNode)
        Dim tn2 As TreeNode = CType(y, TreeNode)
        Return (CInt(tn1.Tag).CompareTo(CInt(tn2.Tag)))
    End Function
End Class