Bind enum to dropdownlist

    Public Function GetListItemsFromEnum(enumType As Type) As ListItemCollection
        'container to be returned
        Dim items As New ListItemCollection()
        'break down the enumerator items into key/value pairs
        Dim names As String() = [Enum].GetNames(enumType)
        Dim values As Array = [Enum].GetValues(enumType)
        'piece together the key/pairs into the listitem collection
        For i As Integer = 0 To names.Length - 1
            items.Add(New ListItem(names(i).ToString, CInt(values(i)).ToString))
        Next
        'return it
        Return items
    End Function


   Public Sub Page_Load(sender as object, e as eventargs) handles Me.Load
        ddl.DataSource = GetListItemsFromEnum(GetType(EnumerationName))
        ddl.DataTextField = "text"
        ddl.DataValueField = "value"
        ddl.DataBind()
   End Sub

code thanks to http://forums.asp.net/t/1269514.aspx/1