Private Sub SetFocus(ByVal FocusControl As Control) Dim Script As New System.Text.StringBuilder Dim ClientID As String = FocusControl.ClientID With Script .Append("") End With RegisterStartupScript("setFocus", Script.ToString()) End Sub