Dim trv As New TreeView
 
        With trv.Nodes
            Dim tn As TreeNode = .Add("Nanu", "trala")
            tn.Nodes.Add("Das", "li")
            tn.Nodes.Add("geht", "trala")
            .Add("nicht?", "la")
 
            Dim tns() As TreeNode = .Find("geht", True)
            If tns.Length > 0 Then
                MsgBox(tns(0).Name & "  " & tns(0).Text)
            End If
 
        End With