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