Sort Method for an ASP.NET DropDownList

Public Shared Sub SortDropDownList(ByVal ddl As DropDownList)
	Dim arl As ArrayList = Nothing
	If (ddl.Items.Count > 0) Then
		arl = New ArrayList(ddl.Items.Count)
		For Each li As ListItem In ddl.Items
			arl.Add(li)
		Next
	End If
	arl.Sort(New e4LCMS.listfunctions.ListItemComparer)
	ddl.Items.Clear()
	For Each l As ListItem In arl
		ddl.Items.Add(l)
	Next
End Sub


Private Class ListItemComparer
	Implements IComparer
	Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
		Dim li_x As ListItem = CType(x, ListItem)
		Dim li_y As ListItem = CType(y, ListItem)
		Dim c As CaseInsensitiveComparer = New CaseInsensitiveComparer
		Return c.Compare(li_x.Text, li_y.Text)
	End Function
End Class

<MyTag:SortableList ID="MyList" runat="server" ListType="DropDownList" />

Partial Class Controls_SortableListControl
    Inherits System.Web.UI.UserControl

    Public Enum ListTypes
        DropDownList
        ListBox
        RadioButtonList
        CheckBoxList
        BulletedList
    End Enum

    Private _ListType As ListTypes
    Public Property ListType() As ListTypes
        Get
            If _ListType = Nothing Then
                _ListType = ListTypes.DropDownList
            End If
            Return _ListType
        End Get
        Set(ByVal value As ListTypes)
            _ListType = value
            ListSetup()
        End Set
    End Property

    Public Property ListControl() As Object
        Get
            If Me.FindControl("ListControl") Is Nothing Then
                ListSetup()
            End If
            Return Me.FindControl("ListControl")
        End Get
        Private Set(ByVal value As Object)
            If value IsNot Nothing Then
                If Me.FindControl("ListControl") Is Nothing Then
                    value.ID = "ListControl"
                    Me.Controls.Add(value)
                End If
            End If
        End Set
    End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub ListSetup()
        Select Case ListType
            Case ListTypes.BulletedList
                ListControl = New BulletedList
            Case ListTypes.CheckBoxList
                ListControl = New CheckBoxList
            Case ListTypes.DropDownList
                ListControl = New DropDownList
            Case ListTypes.ListBox
                ListControl = New ListBox
            Case ListTypes.RadioButtonList
                ListControl = New RadioButtonList
            Case Else
                ListControl = Nothing
        End Select
    End Sub

    Public Sub AddFirstItem(ByVal li As ListItem)
        ListControl.Items.Insert(0, li)
    End Sub

    Public Sub SortList(ByVal SortByText As Boolean, ByVal SortAscending As Boolean)
        Dim ar(ListControl.Items.Count - 1) As ListItem
        ListControl.Items.CopyTo(ar, 0)

        If SortByText Then
            Array.Sort(ar, New ListItemCompareText)
        Else
            Array.Sort(ar, New ListItemCompareValue)
        End If

        If Not SortAscending Then
            Array.Reverse(ar)
        End If

        ListControl.Items.Clear()
        ListControl.Items.AddRange(ar)
    End Sub

    Private Class ListItemCompareText
        Implements IComparer

        Public Function Compare(ByVal x As Object, _
              ByVal y As Object) As Integer _
              Implements System.Collections.IComparer.Compare
            Dim a As ListItem = x
            Dim b As ListItem = y
            Dim c As New CaseInsensitiveComparer
            Return c.Compare(a.Text, b.Text)
        End Function
    End Class
    Private Class ListItemCompareValue
        Implements IComparer

        Public Function Compare(ByVal x As Object, _
              ByVal y As Object) As Integer _
              Implements System.Collections.IComparer.Compare
            Dim a As ListItem = x
            Dim b As ListItem = y
            Dim c As New CaseInsensitiveComparer
            Return c.Compare(a.Value, b.Value)
        End Function
    End Class
End Class