<Kurs Nr="101">
  <Bezeichnung>Word Grundlagen</Bezeichnung>
  <Teilnehmerliste>
    <Teilnehmer Nr="1001">    
      <Name>Maximilian</Name>
      <Punkte>90</Punkte>
    </Teilnehmer>
    <Teilnehmer Nr="1002">     
      <Name>Nora</Name>
      <Punkte>99</Punkte>
    </Teilnehmer>
    <Teilnehmer Nr="1003">
      <Name>Oskar</Name>
      <Punkte>80</Punkte>
    </Teilnehmer>
  </Teilnehmerliste>
</Kurs>

Sub tvwfüllen()
        txtAusgabe.Text = ""
        tvw.BeginUpdate()
        tvw.Nodes.Clear()
 
        Dim xknotenliste As XmlNodeList = xdok.SelectNodes("*")
        Dim tknoten As TreeNode = tvw.Nodes.Add("")
 
 
        tvwkey = 0
        tknoten.Name = tvwkey.ToString("00")
        For Each xn As XmlNode In xknotenliste
            ebenelesen(xn, tknoten)
 
        Next
        tvw.EndUpdate()
        tvw.Select()
 
    End Sub
 
    Sub ebenelesen(ByVal xmlknoten As XmlNode, ByVal treeknoten As TreeNode)
        tvwkey += 1
 
        If xmlknoten.Attributes.Count > 0 Then
 
 
            treeknoten.Text = xmlknoten.Attributes.name
 
 
 
 
 
 
 
 
 
        Else
            treeknoten.Text = xmlknoten.Name
 
        End If