Private Function FindText(ByRef vNodes As TreeNodeCollection, ByVal sText As _
  String) As Boolean
  Dim bFound As Boolean
  For Each vNode As TreeNode In vNodes
    If vNode.Text = sText Then
      Return True
    End If
    If vNode.Nodes.Count > 0 Then
      bFound = FindText(vNode.Nodes, sText)
      If bFound Then Return True
    End If
  Next
End Function

If FindText(TreeView1.Nodes, "Suche") Then
  ' schon da
End If

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.