I want to create a web custom control that uses a dropdown list box.

Once I have it created, I know how to use it. My problem is creating it.

I created a new Web Control Library project called MclProgramBox. I renamed the control to cmbPrograms.vb

Is this the right start at least?

I want data loaded into this combo box based on customer login information. For instance, this is the code that I have been using in all my web pages for this dropdown box.
VB Code:
  1. Dim strPriveledge As String

  2.         Try

  3.             If (Request.Cookies("Priveledge") Is Nothing) Or Request.Cookies("Priveledge").Value = String.Empty Then

  4.                 Response.Redirect("Login.aspx")

  5.             End If

  6.         Catch

  7.             Response.Redirect("Login.aspx")

  8.         End Try

  9.  
  10.         strPriveledge = Request.Cookies("Priveledge").Value

  11.  
  12. If strPriveledge = "Administrator" Then

  13.                 cmbPrograms.ClearSelection()

  14.                 cmbPrograms.Items.Add("--Select Program--")

  15.                 cmbPrograms.Items.Add("Menu")

  16.                 cmbPrograms.Items.Add("PDI Sales")

  17.                 cmbPrograms.Items.Add("Price Check")

  18.                 'cmbPrograms.Items.Add("RMS Compare")

  19.             End If

  20.             If strPriveledge = "Executive" Then

  21.                 cmbPrograms.ClearSelection()

  22.                 cmbPrograms.Items.Add("--Select Program--")

  23.                 cmbPrograms.Items.Add("Menu")

  24.                 cmbPrograms.Items.Add("PDI Sales")

  25.                 cmbPrograms.Items.Add("Price Check")

  26.                 'cmbPrograms.Items.Add("RMS Compare")

  27.             End If

  28.             If strPriveledge = "District Manager" Then

  29.                 cmbPrograms.ClearSelection()

  30.                 cmbPrograms.Items.Add("--Select Program--")

  31.                 cmbPrograms.Items.Add("Menu")

  32.                 cmbPrograms.Items.Add("PDI Sales")

  33.             End If

  34.             If strPriveledge <> "Administrator" And strPriveledge <> "Executive" _

  35.             And strPriveledge <> "District Manager" Then

  36.                 Response.Redirect("Login.aspx")

  37.             End If

For the SelectedIndexChanged event, I want this to happen.
VB Code:
  1. If cmbPrograms.SelectedItem.Text = "Menu" Then

  2.             Response.Redirect("Menu.aspx")

  3.         End If

  4.         If cmbPrograms.SelectedItem.Text = "PDI Sales" Then

  5.             Response.Redirect("PDISales.aspx")

  6.         End If

  7.         If cmbPrograms.SelectedItem.Text = "Price Check" Then

  8.             Response.Redirect("PriceCheck.aspx")

  9.         End If

  10.         If cmbPrograms.SelectedItem.Text = "RMS Compare" Then

  11.             Response.Redirect("RMSCompare.aspx")

  12.         End If

I have no idea how to do this for a web custom control. Anyone with patience, I would appreciate if you could be as detailed as possible if you want to give me a hand.

Thanks!