Private Sub serializeSample()
        Dim person As Person = New Person
        person.Name = "ŽR“c‘¾˜Y"
        person.Age = 17
        person.SetTemporaryID(DateTime.Now.ToString())

        Dim formatter As BinaryFormatter = New BinaryFormatter
        Dim stream As Stream = New FileStream("c:\sample.bin", FileMode.Create)
        Try
            formatter.Serialize(Stream, person)
        Finally
            stream.Close()
        End Try
    End Sub

    Private Sub deserializeSample()
        Dim formatter As BinaryFormatter = New BinaryFormatter
        Dim person As Person
        Dim stream As Stream = New FileStream("c:\sample.bin", FileMode.Open)
        Try
            person = CType(formatter.Deserialize(stream), Person)
        Finally
            stream.Close()
        End Try
        person.Dump()
    End Sub