XML Serialization - Part 1

Imports System.Xml.Serialization

<XmlRoot(ElementName:="Class_Order")> _
Public Class Order
    Dim m_menuitem As String
    Dim m_OrderQty As Int16
    Dim m_Taste As String
    Dim m_Fat As String
    Dim m_Customer As String
    Dim m_TableNo As String
    Public Sub New()

    End Sub
    Public Sub New(ByVal m_menuitem As String, ByVal m_OrderQty As Int16, ByVal m_Taste As String, ByVal m_Fat As String, ByVal m_Customer As String, ByVal m_TableNo As String)
        Me.MenuItem = m_menuitem
        Me.OrderedQty = m_OrderQty
        Me.OrderedTaste = m_Taste
        Me.OrderedFat = m_Fat
        Me.Customer = m_Customer
        Me.TableNo = m_TableNo
    End Sub
    <XmlElement(ElementName:="Customer")> _
    Public Property Customer() As String
        Get
            Return m_Customer
        End Get
        Set(ByVal value As String)
            m_Customer = value
        End Set
    End Property
    <XmlElement(ElementName:="TableNo")> _
    Public Property TableNo() As String
        Get
            Return m_TableNo
        End Get
        Set(ByVal value As String)
            m_TableNo = value
        End Set
    End Property
    <XmlElement(ElementName:="OrderedQty")> _
    Public Property OrderedQty() As Int16
        Get
            Return m_OrderQty
        End Get
        Set(ByVal value As Int16)
            m_OrderQty = value
        End Set
    End Property
    <XmlElement(ElementName:="OrderedTaste")> _
    Public Property OrderedTaste() As String
        Get
            Return m_Taste
        End Get
        Set(ByVal value As String)
            m_Taste = value
        End Set
    End Property
    <XmlElement(ElementName:="OrderedFat")> _
    Public Property OrderedFat() As String
        Get
            Return m_Fat
        End Get
        Set(ByVal value As String)
            m_Fat = value
        End Set
    End Property
    <XmlElement(ElementName:="MenuItem")> _
    Public Property MenuItem() As String
        Get
            Return m_menuitem
        End Get
        Set(ByVal value As String)
            m_menuitem = value
        End Set
    End Property
    
End Class