VSTO VBA Interop Sample

This sample demonstrates how to call a method in a document-level customization for Microsoft Office Excel from Visual Basic for Applications (VBA) code in the workbook.

 
 
 
 
 
4 Star
(1)
6,046 times
Add to favorites
2/19/2011
E-mail Twitter del.icio.us Digg Facebook

Solution explorer

C#
VB.NET
'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:4.0.30128.1
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On


'Original file name:
'Generation date: 2/8/2010 1:33:42 PM
Namespace NorthwindServiceReference
    '''<summary>
    '''There are no comments for NorthwindEntities in the schema.
    '''</summary>
    Partial Public Class NorthwindEntities
        Inherits Global.System.Data.Services.Client.DataServiceContext
        '''<summary>
        '''Initialize a new NorthwindEntities object.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub New(ByVal serviceRoot As Global.System.Uri)
            MyBase.New(serviceRoot)
            Me.ResolveName = AddressOf Me.ResolveNameFromType
            Me.ResolveType = AddressOf Me.ResolveTypeFromName
            Me.OnContextCreated
        End Sub
        Partial Private Sub OnContextCreated()
        End Sub
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private Shared ROOTNAMESPACE As String = GetType(NorthwindServiceReference.NorthwindEntities).Namespace.Remove(GetType(NorthwindServiceReference.NorthwindEntities).Namespace.LastIndexOf("NorthwindServiceReference"))
        '''<summary>
        '''Since the namespace configured for this service reference
        '''in Visual Studio is different from the one indicated in the
        '''server schema, use type-mappers to map between the two.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Protected Function ResolveTypeFromName(ByVal typeName As String) As Global.System.Type
            If typeName.StartsWith("NorthwindModel", Global.System.StringComparison.OrdinalIgnoreCase) Then
                Return Me.GetType.Assembly.GetType(String.Concat(String.Concat(ROOTNAMESPACE, "NorthwindServiceReference"), typeName.Substring(14)), false)
            End If
            Return Nothing
        End Function
        '''<summary>
        '''Since the namespace configured for this service reference
        '''in Visual Studio is different from the one indicated in the
        '''server schema, use type-mappers to map between the two.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Protected Function ResolveNameFromType(ByVal clientType As Global.System.Type) As String
            If clientType.Namespace.Equals(String.Concat(ROOTNAMESPACE, "NorthwindServiceReference"), Global.System.StringComparison.OrdinalIgnoreCase) Then
                Return String.Concat("NorthwindModel.", clientType.Name)
            End If
            Return Nothing
        End Function
        '''<summary>
        '''There are no comments for Categories in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Categories() As Global.System.Data.Services.Client.DataServiceQuery(Of Category)
            Get
                If (Me._Categories Is Nothing) Then
                    Me._Categories = MyBase.CreateQuery(Of Category)("Categories")
                End If
                Return Me._Categories
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Categories As Global.System.Data.Services.Client.DataServiceQuery(Of Category)
        '''<summary>
        '''There are no comments for CustomerDemographics in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property CustomerDemographics() As Global.System.Data.Services.Client.DataServiceQuery(Of CustomerDemographic)
            Get
                If (Me._CustomerDemographics Is Nothing) Then
                    Me._CustomerDemographics = MyBase.CreateQuery(Of CustomerDemographic)("CustomerDemographics")
                End If
                Return Me._CustomerDemographics
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CustomerDemographics As Global.System.Data.Services.Client.DataServiceQuery(Of CustomerDemographic)
        '''<summary>
        '''There are no comments for Customers in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Customers() As Global.System.Data.Services.Client.DataServiceQuery(Of Customer)
            Get
                If (Me._Customers Is Nothing) Then
                    Me._Customers = MyBase.CreateQuery(Of Customer)("Customers")
                End If
                Return Me._Customers
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Customers As Global.System.Data.Services.Client.DataServiceQuery(Of Customer)
        '''<summary>
        '''There are no comments for Employees in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Employees() As Global.System.Data.Services.Client.DataServiceQuery(Of Employee)
            Get
                If (Me._Employees Is Nothing) Then
                    Me._Employees = MyBase.CreateQuery(Of Employee)("Employees")
                End If
                Return Me._Employees
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Employees As Global.System.Data.Services.Client.DataServiceQuery(Of Employee)
        '''<summary>
        '''There are no comments for Order_Details in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Order_Details() As Global.System.Data.Services.Client.DataServiceQuery(Of Order_Detail)
            Get
                If (Me._Order_Details Is Nothing) Then
                    Me._Order_Details = MyBase.CreateQuery(Of Order_Detail)("Order_Details")
                End If
                Return Me._Order_Details
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Order_Details As Global.System.Data.Services.Client.DataServiceQuery(Of Order_Detail)
        '''<summary>
        '''There are no comments for Orders in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Orders() As Global.System.Data.Services.Client.DataServiceQuery(Of Order)
            Get
                If (Me._Orders Is Nothing) Then
                    Me._Orders = MyBase.CreateQuery(Of Order)("Orders")
                End If
                Return Me._Orders
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Orders As Global.System.Data.Services.Client.DataServiceQuery(Of Order)
        '''<summary>
        '''There are no comments for Products in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Products() As Global.System.Data.Services.Client.DataServiceQuery(Of Product)
            Get
                If (Me._Products Is Nothing) Then
                    Me._Products = MyBase.CreateQuery(Of Product)("Products")
                End If
                Return Me._Products
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Products As Global.System.Data.Services.Client.DataServiceQuery(Of Product)
        '''<summary>
        '''There are no comments for Regions in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Regions() As Global.System.Data.Services.Client.DataServiceQuery(Of Region)
            Get
                If (Me._Regions Is Nothing) Then
                    Me._Regions = MyBase.CreateQuery(Of Region)("Regions")
                End If
                Return Me._Regions
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Regions As Global.System.Data.Services.Client.DataServiceQuery(Of Region)
        '''<summary>
        '''There are no comments for Shippers in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Shippers() As Global.System.Data.Services.Client.DataServiceQuery(Of Shipper)
            Get
                If (Me._Shippers Is Nothing) Then
                    Me._Shippers = MyBase.CreateQuery(Of Shipper)("Shippers")
                End If
                Return Me._Shippers
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Shippers As Global.System.Data.Services.Client.DataServiceQuery(Of Shipper)
        '''<summary>
        '''There are no comments for Suppliers in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Suppliers() As Global.System.Data.Services.Client.DataServiceQuery(Of Supplier)
            Get
                If (Me._Suppliers Is Nothing) Then
                    Me._Suppliers = MyBase.CreateQuery(Of Supplier)("Suppliers")
                End If
                Return Me._Suppliers
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Suppliers As Global.System.Data.Services.Client.DataServiceQuery(Of Supplier)
        '''<summary>
        '''There are no comments for Territories in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public ReadOnly Property Territories() As Global.System.Data.Services.Client.DataServiceQuery(Of Territory)
            Get
                If (Me._Territories Is Nothing) Then
                    Me._Territories = MyBase.CreateQuery(Of Territory)("Territories")
                End If
                Return Me._Territories
            End Get
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Territories As Global.System.Data.Services.Client.DataServiceQuery(Of Territory)
        '''<summary>
        '''There are no comments for Categories in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToCategories(ByVal category As Category)
            MyBase.AddObject("Categories", category)
        End Sub
        '''<summary>
        '''There are no comments for CustomerDemographics in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToCustomerDemographics(ByVal customerDemographic As CustomerDemographic)
            MyBase.AddObject("CustomerDemographics", customerDemographic)
        End Sub
        '''<summary>
        '''There are no comments for Customers in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToCustomers(ByVal customer As Customer)
            MyBase.AddObject("Customers", customer)
        End Sub
        '''<summary>
        '''There are no comments for Employees in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToEmployees(ByVal employee As Employee)
            MyBase.AddObject("Employees", employee)
        End Sub
        '''<summary>
        '''There are no comments for Order_Details in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToOrder_Details(ByVal order_Detail As Order_Detail)
            MyBase.AddObject("Order_Details", order_Detail)
        End Sub
        '''<summary>
        '''There are no comments for Orders in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToOrders(ByVal order As Order)
            MyBase.AddObject("Orders", order)
        End Sub
        '''<summary>
        '''There are no comments for Products in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToProducts(ByVal product As Product)
            MyBase.AddObject("Products", product)
        End Sub
        '''<summary>
        '''There are no comments for Regions in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToRegions(ByVal region As Region)
            MyBase.AddObject("Regions", region)
        End Sub
        '''<summary>
        '''There are no comments for Shippers in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToShippers(ByVal shipper As Shipper)
            MyBase.AddObject("Shippers", shipper)
        End Sub
        '''<summary>
        '''There are no comments for Suppliers in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToSuppliers(ByVal supplier As Supplier)
            MyBase.AddObject("Suppliers", supplier)
        End Sub
        '''<summary>
        '''There are no comments for Territories in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Sub AddToTerritories(ByVal territory As Territory)
            MyBase.AddObject("Territories", territory)
        End Sub
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Category in the schema.
    '''</summary>
    '''<KeyProperties>
    '''CategoryID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("CategoryID")>  _
    Partial Public Class Category
        '''<summary>
        '''Create a new Category object.
        '''</summary>
        '''<param name="categoryID">Initial value of CategoryID.</param>
        '''<param name="categoryName">Initial value of CategoryName.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateCategory(ByVal categoryID As Integer, ByVal categoryName As String) As Category
            Dim category As Category = New Category()
            category.CategoryID = categoryID
            category.CategoryName = categoryName
            Return category
        End Function
        '''<summary>
        '''There are no comments for Property CategoryID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property CategoryID() As Integer
            Get
                Return Me._CategoryID
            End Get
            Set
                Me.OnCategoryIDChanging(value)
                Me._CategoryID = value
                Me.OnCategoryIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CategoryID As Integer
        Partial Private Sub OnCategoryIDChanging(ByVal value As Integer)
        End Sub
        Partial Private Sub OnCategoryIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property CategoryName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property CategoryName() As String
            Get
                Return Me._CategoryName
            End Get
            Set
                Me.OnCategoryNameChanging(value)
                Me._CategoryName = value
                Me.OnCategoryNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CategoryName As String
        Partial Private Sub OnCategoryNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCategoryNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Description in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Description() As String
            Get
                Return Me._Description
            End Get
            Set
                Me.OnDescriptionChanging(value)
                Me._Description = value
                Me.OnDescriptionChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Description As String
        Partial Private Sub OnDescriptionChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnDescriptionChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Picture in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Picture() As Byte()
            Get
                If (Not (Me._Picture) Is Nothing) Then
                    Return CType(Me._Picture.Clone,Byte())
                Else
                    Return Nothing
                End If
            End Get
            Set
                Me.OnPictureChanging(value)
                Me._Picture = value
                Me.OnPictureChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Picture() As Byte
        Partial Private Sub OnPictureChanging(ByVal value() As Byte)
        End Sub
        Partial Private Sub OnPictureChanged()
        End Sub
        '''<summary>
        '''There are no comments for Products in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Products() As Global.System.Collections.ObjectModel.Collection(Of Product)
            Get
                Return Me._Products
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Products = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Products As Global.System.Collections.ObjectModel.Collection(Of Product) = New Global.System.Collections.ObjectModel.Collection(Of Product)()
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.CustomerDemographic in the schema.
    '''</summary>
    '''<KeyProperties>
    '''CustomerTypeID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("CustomerTypeID")>  _
    Partial Public Class CustomerDemographic
        '''<summary>
        '''Create a new CustomerDemographic object.
        '''</summary>
        '''<param name="customerTypeID">Initial value of CustomerTypeID.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateCustomerDemographic(ByVal customerTypeID As String) As CustomerDemographic
            Dim customerDemographic As CustomerDemographic = New CustomerDemographic()
            customerDemographic.CustomerTypeID = customerTypeID
            Return customerDemographic
        End Function
        '''<summary>
        '''There are no comments for Property CustomerTypeID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property CustomerTypeID() As String
            Get
                Return Me._CustomerTypeID
            End Get
            Set
                Me.OnCustomerTypeIDChanging(value)
                Me._CustomerTypeID = value
                Me.OnCustomerTypeIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CustomerTypeID As String
        Partial Private Sub OnCustomerTypeIDChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCustomerTypeIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property CustomerDesc in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property CustomerDesc() As String
            Get
                Return Me._CustomerDesc
            End Get
            Set
                Me.OnCustomerDescChanging(value)
                Me._CustomerDesc = value
                Me.OnCustomerDescChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CustomerDesc As String
        Partial Private Sub OnCustomerDescChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCustomerDescChanged()
        End Sub
        '''<summary>
        '''There are no comments for Customers in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Customers() As Global.System.Collections.ObjectModel.Collection(Of Customer)
            Get
                Return Me._Customers
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Customers = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Customers As Global.System.Collections.ObjectModel.Collection(Of Customer) = New Global.System.Collections.ObjectModel.Collection(Of Customer)()
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Customer in the schema.
    '''</summary>
    '''<KeyProperties>
    '''CustomerID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("CustomerID")>  _
    Partial Public Class Customer
        '''<summary>
        '''Create a new Customer object.
        '''</summary>
        '''<param name="customerID">Initial value of CustomerID.</param>
        '''<param name="companyName">Initial value of CompanyName.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateCustomer(ByVal customerID As String, ByVal companyName As String) As Customer
            Dim customer As Customer = New Customer()
            customer.CustomerID = customerID
            customer.CompanyName = companyName
            Return customer
        End Function
        '''<summary>
        '''There are no comments for Property CustomerID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property CustomerID() As String
            Get
                Return Me._CustomerID
            End Get
            Set
                Me.OnCustomerIDChanging(value)
                Me._CustomerID = value
                Me.OnCustomerIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CustomerID As String
        Partial Private Sub OnCustomerIDChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCustomerIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property CompanyName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property CompanyName() As String
            Get
                Return Me._CompanyName
            End Get
            Set
                Me.OnCompanyNameChanging(value)
                Me._CompanyName = value
                Me.OnCompanyNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CompanyName As String
        Partial Private Sub OnCompanyNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCompanyNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ContactName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ContactName() As String
            Get
                Return Me._ContactName
            End Get
            Set
                Me.OnContactNameChanging(value)
                Me._ContactName = value
                Me.OnContactNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ContactName As String
        Partial Private Sub OnContactNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnContactNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ContactTitle in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ContactTitle() As String
            Get
                Return Me._ContactTitle
            End Get
            Set
                Me.OnContactTitleChanging(value)
                Me._ContactTitle = value
                Me.OnContactTitleChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ContactTitle As String
        Partial Private Sub OnContactTitleChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnContactTitleChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Address in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Address() As String
            Get
                Return Me._Address
            End Get
            Set
                Me.OnAddressChanging(value)
                Me._Address = value
                Me.OnAddressChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Address As String
        Partial Private Sub OnAddressChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnAddressChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property City in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property City() As String
            Get
                Return Me._City
            End Get
            Set
                Me.OnCityChanging(value)
                Me._City = value
                Me.OnCityChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _City As String
        Partial Private Sub OnCityChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCityChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Region in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Region() As String
            Get
                Return Me._Region
            End Get
            Set
                Me.OnRegionChanging(value)
                Me._Region = value
                Me.OnRegionChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Region As String
        Partial Private Sub OnRegionChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnRegionChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property PostalCode in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property PostalCode() As String
            Get
                Return Me._PostalCode
            End Get
            Set
                Me.OnPostalCodeChanging(value)
                Me._PostalCode = value
                Me.OnPostalCodeChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _PostalCode As String
        Partial Private Sub OnPostalCodeChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnPostalCodeChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Country in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Country() As String
            Get
                Return Me._Country
            End Get
            Set
                Me.OnCountryChanging(value)
                Me._Country = value
                Me.OnCountryChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Country As String
        Partial Private Sub OnCountryChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCountryChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Phone in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Phone() As String
            Get
                Return Me._Phone
            End Get
            Set
                Me.OnPhoneChanging(value)
                Me._Phone = value
                Me.OnPhoneChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Phone As String
        Partial Private Sub OnPhoneChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnPhoneChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Fax in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Fax() As String
            Get
                Return Me._Fax
            End Get
            Set
                Me.OnFaxChanging(value)
                Me._Fax = value
                Me.OnFaxChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Fax As String
        Partial Private Sub OnFaxChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnFaxChanged()
        End Sub
        '''<summary>
        '''There are no comments for Orders in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Orders() As Global.System.Collections.ObjectModel.Collection(Of Order)
            Get
                Return Me._Orders
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Orders = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Orders As Global.System.Collections.ObjectModel.Collection(Of Order) = New Global.System.Collections.ObjectModel.Collection(Of Order)()
        '''<summary>
        '''There are no comments for CustomerDemographics in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property CustomerDemographics() As Global.System.Collections.ObjectModel.Collection(Of CustomerDemographic)
            Get
                Return Me._CustomerDemographics
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._CustomerDemographics = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CustomerDemographics As Global.System.Collections.ObjectModel.Collection(Of CustomerDemographic) = New Global.System.Collections.ObjectModel.Collection(Of CustomerDemographic)()
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Employee in the schema.
    '''</summary>
    '''<KeyProperties>
    '''EmployeeID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("EmployeeID")>  _
    Partial Public Class Employee
        '''<summary>
        '''Create a new Employee object.
        '''</summary>
        '''<param name="employeeID">Initial value of EmployeeID.</param>
        '''<param name="lastName">Initial value of LastName.</param>
        '''<param name="firstName">Initial value of FirstName.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateEmployee(ByVal employeeID As Integer, ByVal lastName As String, ByVal firstName As String) As Employee
            Dim employee As Employee = New Employee()
            employee.EmployeeID = employeeID
            employee.LastName = lastName
            employee.FirstName = firstName
            Return employee
        End Function
        '''<summary>
        '''There are no comments for Property EmployeeID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property EmployeeID() As Integer
            Get
                Return Me._EmployeeID
            End Get
            Set
                Me.OnEmployeeIDChanging(value)
                Me._EmployeeID = value
                Me.OnEmployeeIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _EmployeeID As Integer
        Partial Private Sub OnEmployeeIDChanging(ByVal value As Integer)
        End Sub
        Partial Private Sub OnEmployeeIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property LastName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property LastName() As String
            Get
                Return Me._LastName
            End Get
            Set
                Me.OnLastNameChanging(value)
                Me._LastName = value
                Me.OnLastNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _LastName As String
        Partial Private Sub OnLastNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnLastNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property FirstName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property FirstName() As String
            Get
                Return Me._FirstName
            End Get
            Set
                Me.OnFirstNameChanging(value)
                Me._FirstName = value
                Me.OnFirstNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _FirstName As String
        Partial Private Sub OnFirstNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnFirstNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Title in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Title() As String
            Get
                Return Me._Title
            End Get
            Set
                Me.OnTitleChanging(value)
                Me._Title = value
                Me.OnTitleChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Title As String
        Partial Private Sub OnTitleChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnTitleChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property TitleOfCourtesy in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property TitleOfCourtesy() As String
            Get
                Return Me._TitleOfCourtesy
            End Get
            Set
                Me.OnTitleOfCourtesyChanging(value)
                Me._TitleOfCourtesy = value
                Me.OnTitleOfCourtesyChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _TitleOfCourtesy As String
        Partial Private Sub OnTitleOfCourtesyChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnTitleOfCourtesyChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property BirthDate in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property BirthDate() As Global.System.Nullable(Of Date)
            Get
                Return Me._BirthDate
            End Get
            Set
                Me.OnBirthDateChanging(value)
                Me._BirthDate = value
                Me.OnBirthDateChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _BirthDate As Global.System.Nullable(Of Date)
        Partial Private Sub OnBirthDateChanging(ByVal value As Global.System.Nullable(Of Date))
        End Sub
        Partial Private Sub OnBirthDateChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property HireDate in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property HireDate() As Global.System.Nullable(Of Date)
            Get
                Return Me._HireDate
            End Get
            Set
                Me.OnHireDateChanging(value)
                Me._HireDate = value
                Me.OnHireDateChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _HireDate As Global.System.Nullable(Of Date)
        Partial Private Sub OnHireDateChanging(ByVal value As Global.System.Nullable(Of Date))
        End Sub
        Partial Private Sub OnHireDateChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Address in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Address() As String
            Get
                Return Me._Address
            End Get
            Set
                Me.OnAddressChanging(value)
                Me._Address = value
                Me.OnAddressChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Address As String
        Partial Private Sub OnAddressChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnAddressChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property City in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property City() As String
            Get
                Return Me._City
            End Get
            Set
                Me.OnCityChanging(value)
                Me._City = value
                Me.OnCityChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _City As String
        Partial Private Sub OnCityChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCityChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Region in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Region() As String
            Get
                Return Me._Region
            End Get
            Set
                Me.OnRegionChanging(value)
                Me._Region = value
                Me.OnRegionChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Region As String
        Partial Private Sub OnRegionChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnRegionChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property PostalCode in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property PostalCode() As String
            Get
                Return Me._PostalCode
            End Get
            Set
                Me.OnPostalCodeChanging(value)
                Me._PostalCode = value
                Me.OnPostalCodeChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _PostalCode As String
        Partial Private Sub OnPostalCodeChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnPostalCodeChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Country in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Country() As String
            Get
                Return Me._Country
            End Get
            Set
                Me.OnCountryChanging(value)
                Me._Country = value
                Me.OnCountryChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Country As String
        Partial Private Sub OnCountryChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCountryChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property HomePhone in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property HomePhone() As String
            Get
                Return Me._HomePhone
            End Get
            Set
                Me.OnHomePhoneChanging(value)
                Me._HomePhone = value
                Me.OnHomePhoneChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _HomePhone As String
        Partial Private Sub OnHomePhoneChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnHomePhoneChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Extension in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Extension() As String
            Get
                Return Me._Extension
            End Get
            Set
                Me.OnExtensionChanging(value)
                Me._Extension = value
                Me.OnExtensionChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Extension As String
        Partial Private Sub OnExtensionChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnExtensionChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Photo in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Photo() As Byte()
            Get
                If (Not (Me._Photo) Is Nothing) Then
                    Return CType(Me._Photo.Clone,Byte())
                Else
                    Return Nothing
                End If
            End Get
            Set
                Me.OnPhotoChanging(value)
                Me._Photo = value
                Me.OnPhotoChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Photo() As Byte
        Partial Private Sub OnPhotoChanging(ByVal value() As Byte)
        End Sub
        Partial Private Sub OnPhotoChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Notes in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Notes() As String
            Get
                Return Me._Notes
            End Get
            Set
                Me.OnNotesChanging(value)
                Me._Notes = value
                Me.OnNotesChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Notes As String
        Partial Private Sub OnNotesChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnNotesChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property PhotoPath in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property PhotoPath() As String
            Get
                Return Me._PhotoPath
            End Get
            Set
                Me.OnPhotoPathChanging(value)
                Me._PhotoPath = value
                Me.OnPhotoPathChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _PhotoPath As String
        Partial Private Sub OnPhotoPathChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnPhotoPathChanged()
        End Sub
        '''<summary>
        '''There are no comments for Employees1 in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Employees1() As Global.System.Collections.ObjectModel.Collection(Of Employee)
            Get
                Return Me._Employees1
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Employees1 = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Employees1 As Global.System.Collections.ObjectModel.Collection(Of Employee) = New Global.System.Collections.ObjectModel.Collection(Of Employee)()
        '''<summary>
        '''There are no comments for Employee1 in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Employee1() As Employee
            Get
                Return Me._Employee1
            End Get
            Set
                Me._Employee1 = value
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Employee1 As Employee
        '''<summary>
        '''There are no comments for Orders in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Orders() As Global.System.Collections.ObjectModel.Collection(Of Order)
            Get
                Return Me._Orders
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Orders = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Orders As Global.System.Collections.ObjectModel.Collection(Of Order) = New Global.System.Collections.ObjectModel.Collection(Of Order)()
        '''<summary>
        '''There are no comments for Territories in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Territories() As Global.System.Collections.ObjectModel.Collection(Of Territory)
            Get
                Return Me._Territories
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Territories = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Territories As Global.System.Collections.ObjectModel.Collection(Of Territory) = New Global.System.Collections.ObjectModel.Collection(Of Territory)()
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Order_Detail in the schema.
    '''</summary>
    '''<KeyProperties>
    '''OrderID
    '''ProductID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("OrderID", "ProductID")>  _
    Partial Public Class Order_Detail
        '''<summary>
        '''Create a new Order_Detail object.
        '''</summary>
        '''<param name="orderID">Initial value of OrderID.</param>
        '''<param name="productID">Initial value of ProductID.</param>
        '''<param name="unitPrice">Initial value of UnitPrice.</param>
        '''<param name="quantity">Initial value of Quantity.</param>
        '''<param name="discount">Initial value of Discount.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateOrder_Detail(ByVal orderID As Integer, ByVal productID As Integer, ByVal unitPrice As Decimal, ByVal quantity As Short, ByVal discount As Single) As Order_Detail
            Dim order_Detail As Order_Detail = New Order_Detail()
            order_Detail.OrderID = orderID
            order_Detail.ProductID = productID
            order_Detail.UnitPrice = unitPrice
            order_Detail.Quantity = quantity
            order_Detail.Discount = discount
            Return order_Detail
        End Function
        '''<summary>
        '''There are no comments for Property OrderID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property OrderID() As Integer
            Get
                Return Me._OrderID
            End Get
            Set
                Me.OnOrderIDChanging(value)
                Me._OrderID = value
                Me.OnOrderIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _OrderID As Integer
        Partial Private Sub OnOrderIDChanging(ByVal value As Integer)
        End Sub
        Partial Private Sub OnOrderIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ProductID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ProductID() As Integer
            Get
                Return Me._ProductID
            End Get
            Set
                Me.OnProductIDChanging(value)
                Me._ProductID = value
                Me.OnProductIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ProductID As Integer
        Partial Private Sub OnProductIDChanging(ByVal value As Integer)
        End Sub
        Partial Private Sub OnProductIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property UnitPrice in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property UnitPrice() As Decimal
            Get
                Return Me._UnitPrice
            End Get
            Set
                Me.OnUnitPriceChanging(value)
                Me._UnitPrice = value
                Me.OnUnitPriceChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _UnitPrice As Decimal
        Partial Private Sub OnUnitPriceChanging(ByVal value As Decimal)
        End Sub
        Partial Private Sub OnUnitPriceChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Quantity in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Quantity() As Short
            Get
                Return Me._Quantity
            End Get
            Set
                Me.OnQuantityChanging(value)
                Me._Quantity = value
                Me.OnQuantityChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Quantity As Short
        Partial Private Sub OnQuantityChanging(ByVal value As Short)
        End Sub
        Partial Private Sub OnQuantityChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Discount in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Discount() As Single
            Get
                Return Me._Discount
            End Get
            Set
                Me.OnDiscountChanging(value)
                Me._Discount = value
                Me.OnDiscountChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Discount As Single
        Partial Private Sub OnDiscountChanging(ByVal value As Single)
        End Sub
        Partial Private Sub OnDiscountChanged()
        End Sub
        '''<summary>
        '''There are no comments for Order in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Order() As Order
            Get
                Return Me._Order
            End Get
            Set
                Me._Order = value
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Order As Order
        '''<summary>
        '''There are no comments for Product in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Product() As Product
            Get
                Return Me._Product
            End Get
            Set
                Me._Product = value
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Product As Product
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Order in the schema.
    '''</summary>
    '''<KeyProperties>
    '''OrderID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("OrderID")>  _
    Partial Public Class Order
        '''<summary>
        '''Create a new Order object.
        '''</summary>
        '''<param name="orderID">Initial value of OrderID.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateOrder(ByVal orderID As Integer) As Order
            Dim order As Order = New Order()
            order.OrderID = orderID
            Return order
        End Function
        '''<summary>
        '''There are no comments for Property OrderID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property OrderID() As Integer
            Get
                Return Me._OrderID
            End Get
            Set
                Me.OnOrderIDChanging(value)
                Me._OrderID = value
                Me.OnOrderIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _OrderID As Integer
        Partial Private Sub OnOrderIDChanging(ByVal value As Integer)
        End Sub
        Partial Private Sub OnOrderIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property OrderDate in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property OrderDate() As Global.System.Nullable(Of Date)
            Get
                Return Me._OrderDate
            End Get
            Set
                Me.OnOrderDateChanging(value)
                Me._OrderDate = value
                Me.OnOrderDateChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _OrderDate As Global.System.Nullable(Of Date)
        Partial Private Sub OnOrderDateChanging(ByVal value As Global.System.Nullable(Of Date))
        End Sub
        Partial Private Sub OnOrderDateChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property RequiredDate in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property RequiredDate() As Global.System.Nullable(Of Date)
            Get
                Return Me._RequiredDate
            End Get
            Set
                Me.OnRequiredDateChanging(value)
                Me._RequiredDate = value
                Me.OnRequiredDateChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _RequiredDate As Global.System.Nullable(Of Date)
        Partial Private Sub OnRequiredDateChanging(ByVal value As Global.System.Nullable(Of Date))
        End Sub
        Partial Private Sub OnRequiredDateChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ShippedDate in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ShippedDate() As Global.System.Nullable(Of Date)
            Get
                Return Me._ShippedDate
            End Get
            Set
                Me.OnShippedDateChanging(value)
                Me._ShippedDate = value
                Me.OnShippedDateChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ShippedDate As Global.System.Nullable(Of Date)
        Partial Private Sub OnShippedDateChanging(ByVal value As Global.System.Nullable(Of Date))
        End Sub
        Partial Private Sub OnShippedDateChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Freight in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Freight() As Global.System.Nullable(Of Decimal)
            Get
                Return Me._Freight
            End Get
            Set
                Me.OnFreightChanging(value)
                Me._Freight = value
                Me.OnFreightChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Freight As Global.System.Nullable(Of Decimal)
        Partial Private Sub OnFreightChanging(ByVal value As Global.System.Nullable(Of Decimal))
        End Sub
        Partial Private Sub OnFreightChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ShipName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ShipName() As String
            Get
                Return Me._ShipName
            End Get
            Set
                Me.OnShipNameChanging(value)
                Me._ShipName = value
                Me.OnShipNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ShipName As String
        Partial Private Sub OnShipNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnShipNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ShipAddress in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ShipAddress() As String
            Get
                Return Me._ShipAddress
            End Get
            Set
                Me.OnShipAddressChanging(value)
                Me._ShipAddress = value
                Me.OnShipAddressChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ShipAddress As String
        Partial Private Sub OnShipAddressChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnShipAddressChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ShipCity in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ShipCity() As String
            Get
                Return Me._ShipCity
            End Get
            Set
                Me.OnShipCityChanging(value)
                Me._ShipCity = value
                Me.OnShipCityChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ShipCity As String
        Partial Private Sub OnShipCityChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnShipCityChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ShipRegion in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ShipRegion() As String
            Get
                Return Me._ShipRegion
            End Get
            Set
                Me.OnShipRegionChanging(value)
                Me._ShipRegion = value
                Me.OnShipRegionChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ShipRegion As String
        Partial Private Sub OnShipRegionChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnShipRegionChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ShipPostalCode in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ShipPostalCode() As String
            Get
                Return Me._ShipPostalCode
            End Get
            Set
                Me.OnShipPostalCodeChanging(value)
                Me._ShipPostalCode = value
                Me.OnShipPostalCodeChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ShipPostalCode As String
        Partial Private Sub OnShipPostalCodeChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnShipPostalCodeChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ShipCountry in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ShipCountry() As String
            Get
                Return Me._ShipCountry
            End Get
            Set
                Me.OnShipCountryChanging(value)
                Me._ShipCountry = value
                Me.OnShipCountryChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ShipCountry As String
        Partial Private Sub OnShipCountryChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnShipCountryChanged()
        End Sub
        '''<summary>
        '''There are no comments for Customer in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Customer() As Customer
            Get
                Return Me._Customer
            End Get
            Set
                Me._Customer = value
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Customer As Customer
        '''<summary>
        '''There are no comments for Employee in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Employee() As Employee
            Get
                Return Me._Employee
            End Get
            Set
                Me._Employee = value
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Employee As Employee
        '''<summary>
        '''There are no comments for Order_Details in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Order_Details() As Global.System.Collections.ObjectModel.Collection(Of Order_Detail)
            Get
                Return Me._Order_Details
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Order_Details = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Order_Details As Global.System.Collections.ObjectModel.Collection(Of Order_Detail) = New Global.System.Collections.ObjectModel.Collection(Of Order_Detail)()
        '''<summary>
        '''There are no comments for Shipper in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Shipper() As Shipper
            Get
                Return Me._Shipper
            End Get
            Set
                Me._Shipper = value
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Shipper As Shipper
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Product in the schema.
    '''</summary>
    '''<KeyProperties>
    '''ProductID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("ProductID")>  _
    Partial Public Class Product
        '''<summary>
        '''Create a new Product object.
        '''</summary>
        '''<param name="productID">Initial value of ProductID.</param>
        '''<param name="productName">Initial value of ProductName.</param>
        '''<param name="discontinued">Initial value of Discontinued.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateProduct(ByVal productID As Integer, ByVal productName As String, ByVal discontinued As Boolean) As Product
            Dim product As Product = New Product()
            product.ProductID = productID
            product.ProductName = productName
            product.Discontinued = discontinued
            Return product
        End Function
        '''<summary>
        '''There are no comments for Property ProductID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ProductID() As Integer
            Get
                Return Me._ProductID
            End Get
            Set
                Me.OnProductIDChanging(value)
                Me._ProductID = value
                Me.OnProductIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ProductID As Integer
        Partial Private Sub OnProductIDChanging(ByVal value As Integer)
        End Sub
        Partial Private Sub OnProductIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ProductName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ProductName() As String
            Get
                Return Me._ProductName
            End Get
            Set
                Me.OnProductNameChanging(value)
                Me._ProductName = value
                Me.OnProductNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ProductName As String
        Partial Private Sub OnProductNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnProductNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property QuantityPerUnit in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property QuantityPerUnit() As String
            Get
                Return Me._QuantityPerUnit
            End Get
            Set
                Me.OnQuantityPerUnitChanging(value)
                Me._QuantityPerUnit = value
                Me.OnQuantityPerUnitChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _QuantityPerUnit As String
        Partial Private Sub OnQuantityPerUnitChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnQuantityPerUnitChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property UnitPrice in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property UnitPrice() As Global.System.Nullable(Of Decimal)
            Get
                Return Me._UnitPrice
            End Get
            Set
                Me.OnUnitPriceChanging(value)
                Me._UnitPrice = value
                Me.OnUnitPriceChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _UnitPrice As Global.System.Nullable(Of Decimal)
        Partial Private Sub OnUnitPriceChanging(ByVal value As Global.System.Nullable(Of Decimal))
        End Sub
        Partial Private Sub OnUnitPriceChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property UnitsInStock in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property UnitsInStock() As Global.System.Nullable(Of Short)
            Get
                Return Me._UnitsInStock
            End Get
            Set
                Me.OnUnitsInStockChanging(value)
                Me._UnitsInStock = value
                Me.OnUnitsInStockChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _UnitsInStock As Global.System.Nullable(Of Short)
        Partial Private Sub OnUnitsInStockChanging(ByVal value As Global.System.Nullable(Of Short))
        End Sub
        Partial Private Sub OnUnitsInStockChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property UnitsOnOrder in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property UnitsOnOrder() As Global.System.Nullable(Of Short)
            Get
                Return Me._UnitsOnOrder
            End Get
            Set
                Me.OnUnitsOnOrderChanging(value)
                Me._UnitsOnOrder = value
                Me.OnUnitsOnOrderChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _UnitsOnOrder As Global.System.Nullable(Of Short)
        Partial Private Sub OnUnitsOnOrderChanging(ByVal value As Global.System.Nullable(Of Short))
        End Sub
        Partial Private Sub OnUnitsOnOrderChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ReorderLevel in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ReorderLevel() As Global.System.Nullable(Of Short)
            Get
                Return Me._ReorderLevel
            End Get
            Set
                Me.OnReorderLevelChanging(value)
                Me._ReorderLevel = value
                Me.OnReorderLevelChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ReorderLevel As Global.System.Nullable(Of Short)
        Partial Private Sub OnReorderLevelChanging(ByVal value As Global.System.Nullable(Of Short))
        End Sub
        Partial Private Sub OnReorderLevelChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Discontinued in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Discontinued() As Boolean
            Get
                Return Me._Discontinued
            End Get
            Set
                Me.OnDiscontinuedChanging(value)
                Me._Discontinued = value
                Me.OnDiscontinuedChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Discontinued As Boolean
        Partial Private Sub OnDiscontinuedChanging(ByVal value As Boolean)
        End Sub
        Partial Private Sub OnDiscontinuedChanged()
        End Sub
        '''<summary>
        '''There are no comments for Category in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Category() As Category
            Get
                Return Me._Category
            End Get
            Set
                Me._Category = value
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Category As Category
        '''<summary>
        '''There are no comments for Order_Details in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Order_Details() As Global.System.Collections.ObjectModel.Collection(Of Order_Detail)
            Get
                Return Me._Order_Details
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Order_Details = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Order_Details As Global.System.Collections.ObjectModel.Collection(Of Order_Detail) = New Global.System.Collections.ObjectModel.Collection(Of Order_Detail)()
        '''<summary>
        '''There are no comments for Supplier in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Supplier() As Supplier
            Get
                Return Me._Supplier
            End Get
            Set
                Me._Supplier = value
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Supplier As Supplier
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Region in the schema.
    '''</summary>
    '''<KeyProperties>
    '''RegionID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("RegionID")>  _
    Partial Public Class Region
        '''<summary>
        '''Create a new Region object.
        '''</summary>
        '''<param name="regionID">Initial value of RegionID.</param>
        '''<param name="regionDescription">Initial value of RegionDescription.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateRegion(ByVal regionID As Integer, ByVal regionDescription As String) As Region
            Dim region As Region = New Region()
            region.RegionID = regionID
            region.RegionDescription = regionDescription
            Return region
        End Function
        '''<summary>
        '''There are no comments for Property RegionID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property RegionID() As Integer
            Get
                Return Me._RegionID
            End Get
            Set
                Me.OnRegionIDChanging(value)
                Me._RegionID = value
                Me.OnRegionIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _RegionID As Integer
        Partial Private Sub OnRegionIDChanging(ByVal value As Integer)
        End Sub
        Partial Private Sub OnRegionIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property RegionDescription in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property RegionDescription() As String
            Get
                Return Me._RegionDescription
            End Get
            Set
                Me.OnRegionDescriptionChanging(value)
                Me._RegionDescription = value
                Me.OnRegionDescriptionChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _RegionDescription As String
        Partial Private Sub OnRegionDescriptionChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnRegionDescriptionChanged()
        End Sub
        '''<summary>
        '''There are no comments for Territories in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Territories() As Global.System.Collections.ObjectModel.Collection(Of Territory)
            Get
                Return Me._Territories
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Territories = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Territories As Global.System.Collections.ObjectModel.Collection(Of Territory) = New Global.System.Collections.ObjectModel.Collection(Of Territory)()
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Shipper in the schema.
    '''</summary>
    '''<KeyProperties>
    '''ShipperID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("ShipperID")>  _
    Partial Public Class Shipper
        '''<summary>
        '''Create a new Shipper object.
        '''</summary>
        '''<param name="shipperID">Initial value of ShipperID.</param>
        '''<param name="companyName">Initial value of CompanyName.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateShipper(ByVal shipperID As Integer, ByVal companyName As String) As Shipper
            Dim shipper As Shipper = New Shipper()
            shipper.ShipperID = shipperID
            shipper.CompanyName = companyName
            Return shipper
        End Function
        '''<summary>
        '''There are no comments for Property ShipperID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ShipperID() As Integer
            Get
                Return Me._ShipperID
            End Get
            Set
                Me.OnShipperIDChanging(value)
                Me._ShipperID = value
                Me.OnShipperIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ShipperID As Integer
        Partial Private Sub OnShipperIDChanging(ByVal value As Integer)
        End Sub
        Partial Private Sub OnShipperIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property CompanyName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property CompanyName() As String
            Get
                Return Me._CompanyName
            End Get
            Set
                Me.OnCompanyNameChanging(value)
                Me._CompanyName = value
                Me.OnCompanyNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CompanyName As String
        Partial Private Sub OnCompanyNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCompanyNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Phone in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Phone() As String
            Get
                Return Me._Phone
            End Get
            Set
                Me.OnPhoneChanging(value)
                Me._Phone = value
                Me.OnPhoneChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Phone As String
        Partial Private Sub OnPhoneChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnPhoneChanged()
        End Sub
        '''<summary>
        '''There are no comments for Orders in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Orders() As Global.System.Collections.ObjectModel.Collection(Of Order)
            Get
                Return Me._Orders
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Orders = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Orders As Global.System.Collections.ObjectModel.Collection(Of Order) = New Global.System.Collections.ObjectModel.Collection(Of Order)()
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Supplier in the schema.
    '''</summary>
    '''<KeyProperties>
    '''SupplierID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("SupplierID")>  _
    Partial Public Class Supplier
        '''<summary>
        '''Create a new Supplier object.
        '''</summary>
        '''<param name="supplierID">Initial value of SupplierID.</param>
        '''<param name="companyName">Initial value of CompanyName.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateSupplier(ByVal supplierID As Integer, ByVal companyName As String) As Supplier
            Dim supplier As Supplier = New Supplier()
            supplier.SupplierID = supplierID
            supplier.CompanyName = companyName
            Return supplier
        End Function
        '''<summary>
        '''There are no comments for Property SupplierID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property SupplierID() As Integer
            Get
                Return Me._SupplierID
            End Get
            Set
                Me.OnSupplierIDChanging(value)
                Me._SupplierID = value
                Me.OnSupplierIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _SupplierID As Integer
        Partial Private Sub OnSupplierIDChanging(ByVal value As Integer)
        End Sub
        Partial Private Sub OnSupplierIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property CompanyName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property CompanyName() As String
            Get
                Return Me._CompanyName
            End Get
            Set
                Me.OnCompanyNameChanging(value)
                Me._CompanyName = value
                Me.OnCompanyNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _CompanyName As String
        Partial Private Sub OnCompanyNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCompanyNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ContactName in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ContactName() As String
            Get
                Return Me._ContactName
            End Get
            Set
                Me.OnContactNameChanging(value)
                Me._ContactName = value
                Me.OnContactNameChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ContactName As String
        Partial Private Sub OnContactNameChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnContactNameChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property ContactTitle in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property ContactTitle() As String
            Get
                Return Me._ContactTitle
            End Get
            Set
                Me.OnContactTitleChanging(value)
                Me._ContactTitle = value
                Me.OnContactTitleChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _ContactTitle As String
        Partial Private Sub OnContactTitleChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnContactTitleChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Address in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Address() As String
            Get
                Return Me._Address
            End Get
            Set
                Me.OnAddressChanging(value)
                Me._Address = value
                Me.OnAddressChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Address As String
        Partial Private Sub OnAddressChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnAddressChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property City in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property City() As String
            Get
                Return Me._City
            End Get
            Set
                Me.OnCityChanging(value)
                Me._City = value
                Me.OnCityChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _City As String
        Partial Private Sub OnCityChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCityChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Region in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Region() As String
            Get
                Return Me._Region
            End Get
            Set
                Me.OnRegionChanging(value)
                Me._Region = value
                Me.OnRegionChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Region As String
        Partial Private Sub OnRegionChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnRegionChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property PostalCode in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property PostalCode() As String
            Get
                Return Me._PostalCode
            End Get
            Set
                Me.OnPostalCodeChanging(value)
                Me._PostalCode = value
                Me.OnPostalCodeChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _PostalCode As String
        Partial Private Sub OnPostalCodeChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnPostalCodeChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Country in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Country() As String
            Get
                Return Me._Country
            End Get
            Set
                Me.OnCountryChanging(value)
                Me._Country = value
                Me.OnCountryChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Country As String
        Partial Private Sub OnCountryChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnCountryChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Phone in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Phone() As String
            Get
                Return Me._Phone
            End Get
            Set
                Me.OnPhoneChanging(value)
                Me._Phone = value
                Me.OnPhoneChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Phone As String
        Partial Private Sub OnPhoneChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnPhoneChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property Fax in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Fax() As String
            Get
                Return Me._Fax
            End Get
            Set
                Me.OnFaxChanging(value)
                Me._Fax = value
                Me.OnFaxChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Fax As String
        Partial Private Sub OnFaxChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnFaxChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property HomePage in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property HomePage() As String
            Get
                Return Me._HomePage
            End Get
            Set
                Me.OnHomePageChanging(value)
                Me._HomePage = value
                Me.OnHomePageChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _HomePage As String
        Partial Private Sub OnHomePageChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnHomePageChanged()
        End Sub
        '''<summary>
        '''There are no comments for Products in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Products() As Global.System.Collections.ObjectModel.Collection(Of Product)
            Get
                Return Me._Products
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Products = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Products As Global.System.Collections.ObjectModel.Collection(Of Product) = New Global.System.Collections.ObjectModel.Collection(Of Product)()
    End Class
    '''<summary>
    '''There are no comments for NorthwindModel.Territory in the schema.
    '''</summary>
    '''<KeyProperties>
    '''TerritoryID
    '''</KeyProperties>
    <Global.System.Data.Services.Common.DataServiceKeyAttribute("TerritoryID")>  _
    Partial Public Class Territory
        '''<summary>
        '''Create a new Territory object.
        '''</summary>
        '''<param name="territoryID">Initial value of TerritoryID.</param>
        '''<param name="territoryDescription">Initial value of TerritoryDescription.</param>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Shared Function CreateTerritory(ByVal territoryID As String, ByVal territoryDescription As String) As Territory
            Dim territory As Territory = New Territory()
            territory.TerritoryID = territoryID
            territory.TerritoryDescription = territoryDescription
            Return territory
        End Function
        '''<summary>
        '''There are no comments for Property TerritoryID in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property TerritoryID() As String
            Get
                Return Me._TerritoryID
            End Get
            Set
                Me.OnTerritoryIDChanging(value)
                Me._TerritoryID = value
                Me.OnTerritoryIDChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _TerritoryID As String
        Partial Private Sub OnTerritoryIDChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnTerritoryIDChanged()
        End Sub
        '''<summary>
        '''There are no comments for Property TerritoryDescription in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property TerritoryDescription() As String
            Get
                Return Me._TerritoryDescription
            End Get
            Set
                Me.OnTerritoryDescriptionChanging(value)
                Me._TerritoryDescription = value
                Me.OnTerritoryDescriptionChanged
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _TerritoryDescription As String
        Partial Private Sub OnTerritoryDescriptionChanging(ByVal value As String)
        End Sub
        Partial Private Sub OnTerritoryDescriptionChanged()
        End Sub
        '''<summary>
        '''There are no comments for Region in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Region() As Region
            Get
                Return Me._Region
            End Get
            Set
                Me._Region = value
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Region As Region
        '''<summary>
        '''There are no comments for Employees in the schema.
        '''</summary>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Public Property Employees() As Global.System.Collections.ObjectModel.Collection(Of Employee)
            Get
                Return Me._Employees
            End Get
            Set
                If (Not (value) Is Nothing) Then
                    Me._Employees = value
                End If
            End Set
        End Property
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Services.Design", "1.0.0")>  _
        Private _Employees As Global.System.Collections.ObjectModel.Collection(Of Employee) = New Global.System.Collections.ObjectModel.Collection(Of Employee)()
    End Class
End Namespace