Imports System.Xml.Linq
Imports System.IO
Imports System.IO.File
 
Public Class Form1
 
    Dim sPath As String = System.Threading.Thread.GetDomain().BaseDirectory & _
      "\Test.xml"
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.ListView1.Clear()
        Me.ListView1.View = View.Details
        Me.ListView1.FullRowSelect = True
        Me.ListView1.Columns.Add("Name", 75, HorizontalAlignment.Center)
        Me.ListView1.Columns.Add("URL", 85, HorizontalAlignment.Center)
        Me.ListView1.Columns.Add("Zeit", 135, HorizontalAlignment.Center)
 
        Dim XMLDoc As XElement = XElement.Load(sPath)
        Try
            Dim Beitraege = From Eintragungen In XMLDoc.Descendants("Verlauf") _
                               Select Name = Eintragungen.<Name>.Value, _
                                      URL = Eintragungen.<URL>.Value, _
                                      Zeit = Eintragungen.<Zeit>.Value
 
 
            For Each Beitrag In Beitraege
                Dim SubItem As ListViewItem
                With Me.ListView1.Items
                    SubItem = .Add(Beitrag.Name)
                    SubItem.SubItems.Add(Beitrag.URL)
                    SubItem.SubItems.Add(Beitrag.Zeit)
 
                End With
 
            Next Beitrag
 
        Catch ex As Exception
 
            MsgBox("Fehler beim Laden der Daten", MsgBoxStyle.Critical, _
              "Fehler")
 
        End Try
 
    End Sub
 
End Class