''' <summary>Converts the Enumtype to an IList-compatible object.</summary>
 ''' <returns>containing the enumerated type value and descrip.</returns>
<System.Runtime.CompilerServices.Extension()> _
Public Function ToList(Of Valuetype)(ByVal tp As System.Type) As _
       IList(Of KeyValuePair(Of ValueType, String))
 
     If tp Is Nothing Then
        Throw New ArgumentNullException("type")
     End If
 
     Dim list As New List(Of KeyValuePair(Of Valuetype, String))
     Dim enumValues As Array = [Enum].GetValues(tp)
     Dim enumvalue As Valuetype
 
     For Each Value As [Enum] In enumValues
        ' den aktuellen Enumerations-Wert 
        ' in den geforderten 'ValueType' wandeln 
        enumvalue = _ 
        CType(Convert.ChangeType(Value, GetType(Valuetype)), Valuetype)
 
        list.Add (New KeyValuePair(Of Valuetype, String) _
                 (enumvalue, GetDescription(Value)))
     Next Value
     Return list
 End Function

DatagriView1.DataSource = GetType(SimpleEnum).ToList(Of Long)()