How To: Dropdown value for subclassed property

[Mark]

Hello,
I'm trying to subclass a web page button to add a property for security.
The sub-classed web form will read security and cycle though the objects on
the page to decided what needs to be disabled.

After I got it up and running, I thought it would be much nicer if it had a
dropdown list of the securities available rather then inputting a number.
Any suggestions or pointers would be appreciated.

This is what I tried that didn't work...

Imports System.ComponentModel
Imports System.Web.UI
Imports System.Drawing
Imports System.Drawing.Color
Imports System.Web.UI.WebControls

<ToolboxBitmap(GetType(System.Web.UI.WebControls.B utton))> _

Public Class Button
Inherits System.Web.UI.WebControls.Button
Private intSecurity As Int16 = 0
Private ddlSecurityList As DropDownList

<Description("Controls what permission affects the button."), _
Category("Behavior")> _
Public Property DisabledBy() As DropDownList

Get
Return ddlSecurityList
End Get

Set(ByVal Value As DropDownList)
ddlSecurityList.SelectedIndex = Value.SelectedIndex
intSecurity = ddlSecurityList.SelectedItem.Value
End Set
End Property

Public Sub New()
MyBase.New()

Dim mySortedList As New System.Collections.SortedList()
Dim Item As DictionaryEntry
mySortedList("0") = "None"
mySortedList("1") = "Read/Visable"
mySortedList("2") = "Write/Enabled"
mySortedList("3") = "Edit"
mySortedList("4") = "Delete"

For Each Item In mySortedList
Dim newListItem As New System.Web.UI.WebControls.ListItem()
newListItem.Text = Item.Value
newListItem.Value = Item.Key
ddlSecurityList.Items.Add(newListItem)
Next
End Sub

End Class