Sub ShowNode(ByVal parent As TreeNode, ByVal node As XmlNode)
        Dim Caption As String
        Dim i As Integer
        Dim tn As TreeNode
 
        'Wird kein gültiges DOM-Objekt übergeben, wird die Routine beendet:
        If node Is Nothing Then Exit Sub
        If node.NodeType = XmlNodeType.Document Then Caption = "Auswahl"
        If node.NodeType = XmlNodeType.Element Then Caption = node.Name
        If (node.NodeType = XmlNodeType.CDATA) Or (node.NodeType = _
          XmlNodeType.Text) Then Caption = node.Value
        If Caption = "" Then Exit Sub
        If parent Is Nothing Then
            tn = TreeView1.Nodes.Add(Caption)
        Else
            tn = parent.Nodes.Add(Caption)
            If Not (node.Attributes Is Nothing) Then
                If node.Attributes.Count > 0 Then
                    If node.Attributes.GetNamedItem("exp").Value = "1" Then
                        tn.expand()
                    End If
                End If
            End If
        End If
        If Not (node.ChildNodes Is Nothing) Then
            For i = 0 To node.ChildNodes.Count - 1
                ShowNode(tn, node.ChildNodes.Item(i))
            Next
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim xmlDoc As New XmlDocument
        Try
            xmlDoc.Load("daten.xml")
        Catch
            MessageBox.Show("Datei nicht gefunden!")
            Exit Sub
        End Try
        TreeView1.Nodes.Clear()
        ShowNode(Nothing, xmlDoc)
    End Sub