Private Sub SortNode(ByRef vNode As Node)
  On Error Resume Next
  Dim CurNode As Node
  ' aktuellen Node sortieren
  vNode.Sorted = True
  ' Kinder durchgehen und sortieren
  Set CurNode = vNode.Child
  While Not CurNode Is Nothing
    SortNode CurNode
    ' nächstes Kind von vNode
    Set CurNode = CurNode.Next
  Wend
End Sub

SortNode TreeView1.Nodes("MeinNode")

SortNode TreeView1.Nodes(1)

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.