<%@Page Language="VB"%>
<script LANGUAGE= "VB" RUNAT= "server" >
Sub page_load(Source As Object, E as EventArgs)
If Not IsPostBack Then
Btn.Text = " Ok "
Lista.Items.Add("Http://freecode.com.br")
Lista.Items.Add("Http://icqhot.com.br")
Lista.Items.Add("Http://iarts.com.br")
End IF
End Sub
Public Sub Ir (ByVal sender As Object, ByVal e As System.EventArgs)
server.transfer(Lista.SelectedItem.Text)
End Sub
</script>
<head>
<title>.Net</title>
</head>
<form runat="server" method="Post" id="form">
<asp:DropDownList id="Lista" runat="server"/>
<asp:button id="Btn" runat="server" OnClick="Ir" Text=""/>
</Form>t+
