Public Class ListItem
    Private l_text As String
    Private l_color As Color
 
    Public Sub New(ByVal Name As String, ByVal Color As Color)
        l_text = Name
        l_color = Color
    End Sub
 
    Public ReadOnly Property Color() As Color
        Get
            Return l_color
        End Get
    End Property
 
    Public Overrides Function ToString() As String
        Return l_text
    End Function
End Class

mfg
rt