Private Sub btnSerializza_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSerializza.Click

        Dim obj As MiaClasse = MiaClasse.Value

        obj.Property1 = "1"
        obj.Property2 = "2"

        MiaClasse.Save()

    End Sub

    Private Sub btnDeserializza_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeserializza.Click

        MiaClasse.Load()

        MessageBox.Show(MiaClasse.Value.Property2)

    End Sub