' Copyright 2008 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 use restrictions at <your ArcGIS install location>/developerkit/userestrictions.txt.
' 




'
'Custom class to hold the name and value of each domain item while the
'sort is being executed.
'
Option Explicit

Dim m_vValue As Variant
Dim m_sName As String

Property Let Value(RHS As Variant)
  m_vValue = RHS
End Property

Property Get Value() As Variant
  Value = m_vValue
End Property

Property Let Name(RHS As String)
  m_sName = RHS
End Property

Property Get Name() As String
  Name = m_sName
End Property