' Copyright 1995-2004 ESRI

' All rights reserved under the copyright laws of the United States.

' You may freely redistribute and use this sample code, with or without modification.

' Disclaimer: THE SAMPLE CODE IS PROVIDED "AS IS" AND ANY EXPRESS OR IMPLIED
' WARRANTIES, INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
' FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL ESRI OR
' CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
' OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
' SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
' INTERRUPTION) SUSTAINED BY YOU OR A THIRD PARTY, HOWEVER CAUSED AND ON ANY
' THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ARISING IN ANY
' WAY OUT OF THE USE OF THIS SAMPLE CODE, EVEN IF ADVISED OF THE POSSIBILITY OF
' SUCH DAMAGE.

' For additional information contact: Environmental Systems Research Institute, Inc.

' Attn: Contracts Dept.

' 380 New York Street

' Redlands, California, U.S.A. 92373

' Email: contracts@esri.com


'** Declare all the objects that may be reused in different subs or functions.
Public pSG As IStyleGallery
Public pSGS As IStyleGalleryStorage
Public pRString As String, pBx As Integer
Public pSymdefsDB As Database
Public pColorsRS As Recordset
Public pRampsRS As Recordset
Public pSchemesRS As Recordset
Public pSbRS As Recordset
Public pMrkRS As Recordset
Public pLineRS As Recordset
Public pTextRS As Recordset
Public pFillRS As Recordset
Public pNorthRS As Recordset
Public pScText As Recordset
Public pLegItms As Recordset
Public pLabRS As Recordset
Public pFeRS As Recordset
Public pBgRS As Recordset
Public pGratRS As Recordset
Public pLegShpRS As Recordset
Public pDropShRS As Recordset
Public pOutFile As String
Public psrfact As ISpatialReferenceFactory
Public Function eColorByModel(Mode