Sub KategorieMarkieren
  ' Durchlauf des treeKategorien (Teil 1)
  Dim n As TreeNode		
  For Each n In treeKategorien.Nodes
    PrintRecursive(n)
  Next
End Sub
 
Private Sub PrintRecursive(ByVal n As TreeNode)
  ' Durchlauf des treeKategorien (Teil 2) - Markieren der ausgewählten Kategorie
  Dim aNode As TreeNode
  If gesuchteID = n.Name Then
    ' Die ausgewählte Kategorie
    ' (in n.Name steht die eindeutige ID der Kategorie)
    MessageBox.Show(n.Text)
 
    ' Markieren
    ' ????????????????????????????
 
  End If
 
  For Each aNode In n.Nodes
    PrintRecursive(aNode)
  Next
End Sub