Private Function createSoapOverrider() As XmlSerializer
        Dim soapOverrides As SoapAttributeOverrides = New SoapAttributeOverrides
        Dim myTypeMapping As XmlTypeMapping = (New SoapReflectionImporter(soapOverrides)).ImportTypeMapping(GetType(Person))
        Return New XmlSerializer(myTypeMapping)
    End Function

    Private Sub serializeSample()
        Dim person As Person = New Person
        person.Name = "ŽR“c‘¾˜Y"
        person.Age = 17
        person.SetTemporaryID(DateTime.Now.ToString())
        Dim serializer As XmlSerializer = createSoapOverrider()
        Dim stream As FileStream = New FileStream("c:\sample.xml", FileMode.Create)
        Try
            serializer.Serialize(stream, person)
        Finally
            stream.Close()
        End Try
    End Sub

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