Partial Public Class Page
        Inherits UserControl
        Public Sub New()
            InitializeComponent()
        End Sub

        'This uses an event handler, not Silverlight data binding
        Private Sub OnClick(ByVal sender As Object, ByVal args As EventArgs)
            ' Initialize a serializer for a User type.
            Dim serializer As New DataContractJsonSerializer(GetType(User))

            Dim responseStream As System.IO.Stream = New FileStream("pathToFile", FileMode.Create)
            Dim user As User = CType(serializer.ReadObject(responseStream), User)

            ' Create a User object and serialize it.
            Dim json As String = WriteFromObject()

            ' Deserialize the data to a User object.
            Dim jsonString As String = "{'Name':'Bill', 'Age':53}"
            Dim deserializedUser As User = ReadToObject(jsonString)
        End Sub

        Public Shared Function WriteFromObject() As String
            ' Create User object.
            Dim user As New User("Bob", 42)

            ' Create a stream to serialize the object to.
            Dim ms As New MemoryStream()

            ' Create a serializer for objects of type User
            Dim ser As New DataContractJsonSerializer(GetType(User))

            ' Write from the User object to the stream
            ser.WriteObject(ms, user)
            Dim json() As Byte = ms.ToArray()
            ms.Close()
            Return Encoding.UTF8.GetString(json, 0, json.Length)

        End Function


        Public Shared Function ReadToObject(ByVal json As String) As User
            ' Create the User object to read the serialized user into to.
            Dim deserializedUser As New User()

            ' Pass the string into a stream
            Dim ms As New MemoryStream(Encoding.UTF8.GetBytes(json))

            ' Deserializer the stream to the user object and return it.
            Dim ser As New DataContractJsonSerializer(deserializedUser.GetType())

            ' Read the stream
            deserializedUser = TryCast(ser.ReadObject(ms), User)

            ms.Close()
            Return deserializedUser
        End Function



        ' Define the data contract.
        <DataContract(Name := "Customer", Namespace := "http://www.contoso.com")> _
        Public Class User
            Private privateName As String
            <DataMember(Name := "Last", EmitDefaultValue := True, IsRequired := True, Order := 2)> _
            Public Property Name() As String
                Get
                    Return privateName
                End Get
                Set(ByVal value As String)
                    privateName = value
                End Set
            End Property

            Private privateAge As Integer
            <DataMember(Order := 1)> _
            Public Property Age() As Integer
                Get
                    Return privateAge
                End Get
                Set(ByVal value As Integer)
                    privateAge = value
                End Set
            End Property

            <DataMember()> _
            Public Description As Position

            Public Sub New()
            End Sub

            Public Sub New(ByVal newName As String, ByVal newAge As Integer)
                Name = newName
                Age = newAge
            End Sub
        End Class

        <DataContract> _
        Public Enum Position
            <EnumMember(Value := "Emp")> _
            Employee

            <EnumMember(Value := "Mgr")> _
            Manager

            <EnumMember(Value := "Ctr")> _
            Contractor

        End Enum


    End Class

public partial class Page : UserControl
{
    public Page()
    {
        InitializeComponent();
    }

    //This uses an event handler, not Silverlight data binding
    void OnClick(object sender, EventArgs args)
    {
        // Initialize a serializer for a User type.
        DataContractJsonSerializer serializer = new DataContractJsonSerializer(typeof(User));

        System.IO.Stream responseStream = new FileStream("pathToFile", FileMode.Create);
        User user = (User)serializer.ReadObject(responseStream);

        // Create a User object and serialize it.
        string json = WriteFromObject();

        // Deserialize the data to a User object.
        string jsonString = "{'Name':'Bill', 'Age':53}";
        User deserializedUser = ReadToObject(jsonString);
    }

    public static string WriteFromObject()
    {
        // Create User object.
        User user = new User("Bob", 42);

        // Create a stream to serialize the object to.
        MemoryStream ms = new MemoryStream();

        // Create a serializer for objects of type User
        DataContractJsonSerializer ser = new DataContractJsonSerializer(typeof(User));

        // Write from the User object to the stream
        ser.WriteObject(ms, user);
        byte[] json = ms.ToArray();
        ms.Close();
        return Encoding.UTF8.GetString(json, 0, json.Length);

    }


    public static User ReadToObject(string json)
    {
        // Create the User object to read the serialized user into to.
        User deserializedUser = new User();

        // Pass the string into a stream
        MemoryStream ms = new MemoryStream(Encoding.UTF8.GetBytes(json));

        // Deserializer the stream to the user object and return it.
        DataContractJsonSerializer ser = new DataContractJsonSerializer(deserializedUser.GetType());

        // Read the stream
        deserializedUser = ser.ReadObject(ms) as User;

        ms.Close();
        return deserializedUser;
    }



    // Define the data contract.
    [DataContract(Name = "Customer", Namespace = "http://www.contoso.com")]
    public class User
    {
        [DataMember(Name = "Last", EmitDefaultValue = true, IsRequired = true, Order = 2)]
        public string Name { get; set; }

        [DataMember(Order = 1)]
        public int Age { get; set; }

        [DataMember()]
        public Position Description;

        public User() { }

        public User(string newName, int newAge)
        {
            Name = newName;
            Age = newAge;
        }
    }

    [DataContract]
    public enum Position
    {
        [EnumMember(Value = "Emp")]
        Employee,

        [EnumMember(Value = "Mgr")]
        Manager,

        [EnumMember(Value = "Ctr")]
        Contractor

    }


}