Visual Basic

<br />
<br />
    Public Sub ReloadListviewFromXML()<br />
        Dim AddressBook As String = (Path.Combine(Application.StartupPath, "AddressBook.xml"))<br />
        Dim ds As New DataSet<br />
<br />
        Try<br />
            ds.ReadXml(AddressBook)<br />
            Dim dt As DataTable = ds.Tables("People")<br />
            Dim i As Integer<br />
            Dim j As Integer<br />
            Me.listviewObjects.Items.Clear()<br />
<br />
            For i = 0 To dt.Rows.Count - 1<br />
                Dim dr As DataRow = dt.Rows(i)<br />
                With Me.listviewObjects<br />
                    .Items.Add(dr(0))<br />
                    For j = 1 To dt.Columns.Count - 1<br />
                        .Items(i).SubItems.Add(dr(j))<br />
                    Next<br />
                End With<br />
            Next<br />
        Catch ex As System.Exception<br />
<br />
        End Try<br />
<br />
        listviewObjects.GridLines = True<br />
        listviewObjects.FullRowSelect = True<br />
        listviewObjects.MultiSelect = True<br />
<br />
    End Sub<br />
<br />