Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim addressBook1 As 住所録 = New 住所録
  addressBook1.個人.Add個人Row("A0001", "二平二郎", "足立区1-2-3")
  addressBook1.個人.Add個人Row("A0002", "三陸三郎", "板橋区4-5-6")
  addressBook1.個人.Add個人Row("A0003", "四日市四郎", "江戸川区7-8-9")

  Trace.WriteLine("addressBook1の内容")
  For i As Integer = 0 To addressBook1.個人.Count - 1
    Trace.WriteLine(addressBook1.個人(i).ID)
    Trace.WriteLine(addressBook1.個人(i).名前)
    Trace.WriteLine(addressBook1.個人(i).住所)
  Next

  addressBook1.WriteXml("c:\result001.xml")

  Dim addressBook2 As 住所録 = New 住所録
  addressBook2.ReadXml("c:\result001.xml")

  addressBook2.個人.Add個人Row("A0004", "五反田五郎", "目黒区10-11-12")
  addressBook2.個人(0).住所 = "大田区13-14-15"
  addressBook2.個人.Remove個人Row(addressBook2.個人(1))

  Trace.WriteLine("addressBook2の内容")
  For Each r As 住所録.個人Row In addressBook2.個人
    Trace.WriteLine(r.ID)
    Trace.WriteLine(r.名前)
    Trace.WriteLine(r.住所)
  Next

  addressBook2.WriteXml("c:\result002.xml")
End Sub