Private Sub txtSearch_KeyDown(sender As Object, _
    e As KeyEventArgs) Handles txtSearch.KeyDown
 
    If e.KeyCode = Keys.Return Then
 
       Dim tn() As TreeNode = trv.Nodes.Find(txtSearch.Text, True)
       If tn Is Nothing OrElse tn.Length = 0 Then Exit Sub
 
       Dim tnx As TreeNode = Nothing 
       'erster gefundener Knoten im relevanten Level
 
       For i As Integer = 0 To tn.Length - 1
          'Such-Level korrekt angeben - 2 ??
          If tn(i).Level = 2 Then
             tnx = tn(i) : Exit For
          End If
       Next i
       If tnx Is Nothing Then Exit Sub
 
       'Ereignishandler rufen, um die Tabelle zu füllen
       Trv_NodeMouseClick _
         (Me, New TreeNodeMouseClickEventArgs(tnx, Nothing, 0, 0, 0))
 
       trv.SelectedNode = tnx
 
    End If
 
End sub