Public Class NodeTagSorter
    Implements IComparer
    Private Asc As Boolean
    Public Sub New(Optional Ascending As Boolean = True)
        Asc = Ascending
    End Sub
    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)
        Dim TagStringX As String = DirectCast(tx.Tag, String)
        Dim TagStringY As String = DirectCast(ty.Tag, String)
        If Asc Then
            Return String.Compare(TagStringX, TagStringY)
        Else
            Return String.Compare(TagStringY, TagStringX)
        End If
    End Function
End Class

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
   Handles Button1.Click
        'Treeview nach NodeTags sortieren
        TreeView1.TreeViewNodeSorter = New NodeTagSorter()
    End Sub

  Private Sub SwitchNodes()
        '1. Node auslesen
        Dim tempNode As TreeNode = TreeView1.Nodes(0)
        With TreeView1
            'TreeviewSorter auf nothing stellen
            .TreeViewNodeSorter = Nothing
            'und Nodes Umkopieren
            .Nodes.RemoveAt(0)
            .Nodes.Add(tempNode)
        End With
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus