Private Sub serializeSample()
        Dim person1 As Adult = New Adult
        person1.Name = "山田太郎"
        person1.CompanyName = "山田商事"

        Dim person2 As Adult = New Adult
        person2.Name = "山田二郎"
        person2.CompanyName = "山田飯店"

        Dim person3 As Child = New Child
        person3.Name = "山田三郎"
        person3.SchoolName = "山田学園"

        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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        serializeSample()
        deserializeSample()
    End Sub