SERIALIZATION NO VB.NET

  
Imports System.Xml.Serialization
Imports System.IO
Public Class formPrincipal

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim serialize As XmlSerializer = New XmlSerializer(GetType(ReceitaClass))
        Dim receita As ReceitaClass = New ReceitaClass
        Dim arquivo As New FileStream([Ô]receita.xml[Ô], FileMode.Append)
        Try
            receita.MEDICO = TextBox1.Text
            receita.MEDICAMENTO = TextBox2.Text
            receita.QUANTIDADE = TextBox3.Text
            serialize.Serialize(arquivo, receita)
            arquivo.Close()
            MessageBox.Show([Ô]Receita criada com sucesso![Ô], Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString())
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim arquivo As New StreamReader([Ô]receita.xml[Ô])
        Dim serialize As New XmlSerializer(GetType(ReceitaMultiClass))
        Dim receitas As New ReceitaMultiClass()
        receitas = serialize.Deserialize(arquivo)
        Dim receita As ReceitaClass
        For Each receita In receitas.receitas
            Console.Out.WriteLine([Ô]{0}, {1}, {2}[Ô], _
                                  receita.MEDICO, _
                                  receita.MEDICAMENTO, _
                                  receita.QUANTIDADE)
        Next
    End Sub
End Class