Public Class ComboItem
    Private m_Tag As String
    Private m_Text As String
    Private m_Color As Color
 
    Public Sub New(ByVal Text As String, ByVal Tag As String, ByVal ItemColor _
      As Color)
        m_Text = Text
        m_Tag = Tag
        m_Color = ItemColor
    End Sub
 
    Public ReadOnly Property Tag() As String
        Get
            Return m_Tag
        End Get
    End Property
 
    Public Overrides Function ToString() As String
        Return m_Text
    End Function
 
    Public ReadOnly Property Color() As Color
        Get
            Return m_Color
        End Get
    End Property
 
End Class

mfg
rt