Asp Control ASP.Net

<%@ Page Language=VB Debug=true %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Not IsPostBack Then
        ddl1.SelectedIndex = 2
    End If
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    lblDataSelected.Text = "Selected Text: " _
        & ddl1.SelectedItem.Text & "
Selected Value: " _
        & ddl1.SelectedItem.Value & "
Selected Index: " _
        & ddl1.SelectedIndex       
End Sub



Reading and Writing the Selected Item in a DropDownList Control






    id="lblDataSelected" 
    runat="server"
/>



    id="ddl1"
    accesskey="1"
    runat="server"
>
    Blue
    Red
    Green
    Purple
    Black




    id="butOK"
    text="OK"
    type="Submit"
    onclick="SubmitBtn_Click" 
    runat="server"
/>