VB.NET Customer and Address Class

A couple of shell classes for Customer and Address...copy and paste at your leisure.


Class Customer
    Private CustomerName As String
    Private ShipToAddress As Address
    Private BillToAddress As Address
    Public Sub New()

    End Sub
    Public Property Name() As String
        Get
            Return CustomerName
        End Get
        Set(value As String)
            CustomerName = value
        End Set
    End Property
    Public Property ShippingAddress() As Address
        Get
            Return ShipToAddress
        End Get
        Set(value As Address)
            ShipToAddress = value
        End Set
    End Property
    Public Property BillingAddress() As Address
        Get
            Return BillToAddress
        End Get
        Set(value As Address)
            BillToAddress = value
        End Set
    End Property
End Class
Class Address
    Private AddressName As String
    Private AddressLine1 As String
    Private AddressLine2 As String
    Private AddressCity As String
    Private AddressState As String
    Private AddressZip As String
    Private AddressCountry As String
    Public Sub New()

    End Sub
    Public Property Name() As String
        Get
            Return AddressName
        End Get
        Set(value As String)
            AddressName = value
        End Set
    End Property
    Public Property Line1() As String
        Get
            Return AddressLine1
        End Get
        Set(value As String)
            AddressLine1 = value
        End Set
    End Property
    Public Property Line2() As String
        Get
            Return AddressLine2
        End Get
        Set(value As String)
            AddressLine2 = value
        End Set
    End Property
    Public Property City() As String
        Get
            Return AddressCity
        End Get
        Set(value As String)
            AddressCity = value
        End Set
    End Property
    Public Property State() As String
        Get
            Return AddressState
        End Get
        Set(value As String)
            AddressState = value
        End Set
    End Property
    Public Property Zip() As String
        Get
            Return AddressZip
        End Get
        Set(value As String)
            AddressZip = value
        End Set
    End Property
    Public Property Country() As String
        Get
            Return AddressCountry
        End Get
        Set(value As String)
            AddressCountry = value
        End Set
    End Property