Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Partial Class App3Valid
 Inherits Page

	Sub doSomething( s As Object, e As EventArgs )
		Message.Text = "List box changed"
	End Sub



	Sub getSelection (Src As Object, Args As EventArgs)
		ItemIndex.Text = DropList.SelectedIndex
		ItemValue1.Text = DropList.SelectedValue
		ItemText.Text = DropList.SelectedItem.Text
		ItemValue2.Text = DropList.SelectedItem.Value
	End Sub

End Class