' 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
Public Sub New()
End Sub
Public Sub New(ByVal newName As String, ByVal newAge As Integer)
Name = newName
Age = newAge
End Sub
End Class