Public Class Order
    Private _OrderID As Integer
    Private _NItems As Integer
    Private _PreTotal As Double
    Private _Discount As Double
    Private _Shipping As Double
    Private _OrderTotal As Double

    ' Add the Default Constructor 
    Public Sub New()
        ' Default Constructor without parameter - no code necessary
    End Sub

    Public Sub New(ByVal oid As Integer, ByVal ni As Integer, ByVal pt As Double, ByVal dis As Double, ByVal shp As Double, ByVal ot As Double)
        _OrderID = oid
        _NItems = ni
        _PreTotal = pt
        _Discount = dis
        _Shipping = shp
        _OrderTotal = ot
    End Sub

    Public Property OrderID() As Integer
        Get
            Return _OrderID
        End Get
        Set(ByVal value As Integer)
            _OrderID = value
        End Set
    End Property

    Public Property NItems() As Integer
        Get
            Return _NItems
        End Get
        Set(ByVal value As Integer)
            _NItems = value
        End Set
    End Property

    Public Property PreTotal() As Double
        Get
            PreTotal = _PreTotal
        End Get
        Set(ByVal value As Double)
            _PreTotal = value
        End Set
    End Property

    Public Property Discount() As Double
        Get
            Discount = _Discount
        End Get
        Set(ByVal value As Double)
            _Discount = value
        End Set
    End Property

    Public Property Shipping() As Double
        Get
            Shipping = _Shipping
        End Get
        Set(ByVal value As Double)
            _Shipping = value
        End Set
    End Property

    Public Property OrderTotal() As Double
        Get
            OrderTotal = _OrderTotal
        End Get
        Set(ByVal value As Double)
            _OrderTotal = value
        End Set
    End Property

End Class