== Default.ASPX ======================================================
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
Untitled Page
== Default.ASPX.VB ======================================================
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
Dim strControl As String = DropDownList1.Text
Dim ctrl As Control
For Each ctrl In form1.Controls
If ctrl.ID = strControl Then
ctrl.Focus()
Label1.Text = strControl + " now has foucs."
End If
Next
End Sub