- <Title>
  <id>01-4_clubbers_feat_silvy_-_time_(the_hitmen_remix).mp3</id> 
  <id>01-apollo_-_dance_2007__megara_vs_dj_lee_remix_---www.technorocker._
    info.mp3</id> 
  <id>01-bangboy_vs_hansebanger_-_hamburg_city_( _
  club_mix)---www.technorocker.info.mp3</id> 
...
...
..
..
....
<id>[TECHNO HARDCORE] speedcore__style__gabba nation__ron d _
  core__shockwave__strike__DOA mix by dj VAnUX.mp3</id> 
  </Title>

        Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As _
          System.EventArgs) Handles Button11.Click
 
        Dim xmlList As New Xml.XmlDocument()
        xmlList.Load("Maxro05.08.2007.xml")
        Dim Id As String
        Id = xmlList.DocumentElement.Name
        Dim anzahl As Integer
        Dim counter As Integer = 0
        anzahl = xmlList.DocumentElement.ChildNodes.Count()
 
again:  If counter = (anzahl - 1) Then
            Me.ListBox1.Items.Add(xmlList.DocumentElement.ChildNodes( _
              counter).Value)
        Else
            counter += 1
            Me.ListBox1.Items.Add(xmlList.DocumentElement.ChildNodes( _
              counter).Value)
            GoTo again
        End If
    End Sub