<?xml version="1.0" encoding="utf-8" ?>
<Hardware Text="Hardware">
  <Komponente Name="Prozessor">
    <Firma Name="AMD">
      <Prozessor Name="Athlon"/>
      <Prozessor Name="Athlon X2"/>
      <Prozessor Name="Athlon X3"/>
    </Firma>
    <Firma Name="Intel">
      <Prozessor Name="Celeron"/>
      <Prozessor Name="Duo"/>
      <Prozessor Name="Quad"/>
      <Prozessor Name="i3"/>
      <Prozessor Name="i5"/>
      <Prozessor Name="i7"/>
    </Firma>
  </Komponente>
  <Komponente Name="Arbeitsspeicher">
    <RAM Type="DDR">
      <Taktung MHz="400"/>
    </RAM>
    <RAM Type="DDR2">
      <Taktung MHz="533"/>
      <Taktung MHz="667"/>
      <Taktung MHz="800"/>
    </RAM>
    <RAM Type="DDR3">
      <Taktung MHz="1333"/>
      <Taktung MHz="1600"/>
    </RAM>
  </Komponente>
</Hardware>

Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Dim xDoc As New Xml.XmlDocument
        xDoc.LoadXml(My.Resources.MyXmlData)
        TreeView1.Nodes.Add(Me.GetNode(xDoc.ChildNodes(1)))
    End Sub
 
    Private Function GetNode(xml As Xml.XmlNode) As TreeNode
        Dim node As New TreeNode
        If xml.Attributes.Count > 0 Then
            node.Text = xml.Attributes(0).Value
        End If
        For Each xmlNode As Xml.XmlNode In xml.ChildNodes
            node.Nodes.Add(Me.GetNode(xmlNode))
        Next
        Return node
    End Function
 
End Class