Private Sub serializeSample()
        Dim person1 As New Person
        person1.Name = "山田太郎"
        person1.Age = 17

        Dim person2 As New Person
        person2.Name = "山田二郎"
        person2.Age = 16

        Dim person3 As New Person
        person3.Name = "山田三郎"
        person3.Age = 15

        Dim persons As New Persons
        persons.SetPersons(person1, person2, person3)

        Dim serializer As XmlSerializer = New XmlSerializer(GetType(Persons))
        Dim stream As FileStream = New FileStream("c:\sample.xml", FileMode.Create)
        Try
            serializer.Serialize(stream, persons)
        Finally
            stream.Close()
        End Try
    End Sub

    Private Sub deserializeSample()
        Dim serializer As XmlSerializer = New XmlSerializer(GetType(Persons))
        Dim persons As Persons
        Dim stream As FileStream = New FileStream("c:\sample.xml", FileMode.Open)
        Try
            persons = CType(serializer.Deserialize(stream), Persons)
        Finally
            stream.Close()
        End Try
        persons.Dump()
    End Sub