The following function should work for you ... Imports System.ComponentModel Imports System.Reflection Private Function GetContentTypeValue(ByVal value As Colours) As String      Dim fi As FieldInfo = value.GetType.GetField(value.ToString)      Dim attributes As DescriptionAttribute() = CType(fi.GetCustomAttributes(GetType(DescriptionAttribute), False), DescriptionAttribute())      If attributes.Length > 0 Then           Return attributes(0).Value      Else           Return String.Empty      End If End Function

No, Thank You!! I learned something new today:-O Notorious SMC The difference between the almost-right word & the right word is a really large matter - it's the difference between the lightning bug and the Lightning Mark Twain Get your facts first, and then you can distort them as much as you please Mark Twain