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

Partial Class DB1
 Inherits Page

	Sub doSomething(s As Object, e As EventArgs)
		l1.Text = DropDownList1.SelectedItem.Text
	End Sub

End Class