Public ReadOnly Property Nodes As TreeNodeCollection
      Get
         Return tvBase.Nodes
      End Get
   End Property
 
   Public ReadOnly Property FilteredNodes As TreeNodeCollection
      Get
         Return tvFiltered.Nodes
      End Get
   End Property
 
'
' Die Prozedur zum füllen des TreeViews
' tvFiltered 
'
 Public Sub UseFilter()
 
      Try
 
         tvFiltered.Hide()
 
         Dim lFilter As String = Filter.ToLower
         Dim lNodeName As String
 
         FilteredNodes.Clear()
 
         For Each s As TreeNode In Nodes()
 
            lNodeName = s.Text.ToLower
 
            If lNodeName.IndexOf(lFilter) >= 0 Or lFilter = "" Then
 
               FilteredNodes.Add(s)
 
            End If
 
         Next s
 
      Catch ex As Exception
 
      Finally
 
         If FilteredNodes.Count > 0 Then
 
            SelectedNode = FilteredNodes(0)
 
         End If
 
         tvFiltered.Show()
         Application.DoEvents()
 
      End Try