Overridable Function control2textbox(ByVal targctrl As DropDownList, ByVal strDisplay As String) Dim TbxID As String = "Txt2" + targctrl.ID Dim textbox1 As TextBox If Me.FindControl(TbxID) Is Nothing Then textbox1 = New TextBox() Dim lc As HtmlGenericControl = CType(Me.FindControl(targctrl.Parent.ID), HtmlGenericControl) lc.Controls.Add(textbox1) Else textbox1 = Me.FindControl(TbxID) End If With textbox1 .ID = TbxID .ReadOnly = True .Style("POSITION") = targctrl.Style("POSITION") .Style("TOP") = targctrl.Style("TOP") .Style("LEFT") = targctrl.Style("LEFT") .Style("WIDTH") = targctrl.Style("WIDTH") .Width = targctrl.Width ' textbox1.Text = targctrl.SelectedItem.Value().ToString '.SelectedItem.Value().ToString .Text = strDisplay 'targctrl.SelectedItem.Text targctrl.Visible = False 'Now make the original control invisible End With End Function