Private Function createSoapOverrider() As XmlSerializer
        Dim soapAttrs As SoapAttributes = New SoapAttributes
        Dim soapOverrides As SoapAttributeOverrides = New SoapAttributeOverrides
        soapAttrs.SoapElement = New SoapElementAttribute("Nenrei")
        soapOverrides.Add(GetType(Person), "Age", soapAttrs)
        Dim myTypeMapping As XmlTypeMapping = (New SoapReflectionImporter(soapOverrides)).ImportTypeMapping(GetType(Person))
        Return New XmlSerializer(myTypeMapping)
    End Function