' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.EnterpriseServices
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Geodatabase

<GuidAttribute("12B930FB-1B16-4567-954A-B12044ECB349")> _
Public Interface IVegResults_VBNet
  Property ResGraphics() As IGraphicElements
  Property Stats() As IRecordSet
End Interface

Namespace VegCOM_VBNet
  <AutomationProxy(True), ClassInterface(ClassInterfaceType.None), GuidAttribute("E3DBA8F5-B093-4dc6-9045-8682E0332708")> _
  Public Class VegResults_VBNet
    Inherits ServicedComponent
    Implements IVegResults_VBNet
    Private m_resGraphics As IGraphicElements
    Private m_resStats As IRecordSet
    Public Property ResGraphics() As IGraphicElements Implements IVegResults_VBNet.ResGraphics
      Get
        Return m_resGraphics
      End Get
      Set(ByVal value As IGraphicElements)
        m_resGraphics = TryCast(value, IGraphicElements)
      End Set
    End Property

    Public Property Stats() As IRecordSet Implements IVegResults_VBNet.Stats
      Get
        Return m_resStats
      End Get
      Set(ByVal value As IRecordSet)
        m_resStats = TryCast(value, IRecordSet)
      End Set
    End Property
  End Class
End Namespace