Hi Everyone

I will try to Generate Controls Dynamically using vb.
but i faced a problem":Unable to cast object of type 'System.Web.UI.HtmlControls.HtmlGenericControl' to type 'System.Web.UI.WebControls.TextBox'"
This Code It Work before i Upgrade FrameWork to 4.6.1
  Public Sub LoadFormValues(ByVal pCtl As WebUI.Control, ByVal ModuleId As Int32, ByVal ModuleKey As String)
            Dim ctlDiv As WebUI.Control
            For Each dCtl As DynamicControl In Me
                ctlDiv = FindControlR(controlPrefix & dCtl.CtlId, pCtl)
                If Not ctlDiv Is Nothing AndAlso ctlDiv.Controls.Count > 1 Then
                    Select Case dCtl.CtlType
                        Case SharedTypes.ControlTypes.CheckBox
                            Dim thisCtl As WebCtl.CheckBox = ctlDiv.Controls(1)
                            dCtl.ControlValue = thisCtl.Checked
                        Case SharedTypes.ControlTypes.DropDownlist
                            Dim thisCtl As WebCtl.DropDownList = ctlDiv.Controls(1)
                            dCtl.ControlValue = thisCtl.SelectedValue
                        Case SharedTypes.ControlTypes.Textbox
                            Dim thisCtl As WebCtl.TextBox = ctlDiv.Controls(1) (when debug Stop here :) )
                            dCtl.ControlValue = thisCtl.Text
                        Case SharedTypes.ControlTypes.BoundDropDownList
                            Dim thisCtl As WebCtl.DropDownList = ctlDiv.Controls(1)
                            dCtl.ControlValue = thisCtl.SelectedValue
                    End Select
                End If
            Next
        End Sub
  Private Function FindControlR(ByVal ControlName As String, ByVal pCtl As WebUI.Control) As Object
            If LCase(pCtl.ID) = LCase(ControlName) Then
                Return pCtl
            End If

            Dim ctl As WebUI.Control
            For Each ctl In pCtl.Controls
                Dim ctl2 As WebUI.Control = DirectCast(FindControlR(ControlName, ctl), WebUI.Control)
                If Not ctl2 Is Nothing Then Return ctl2
            Next
            Return Nothing
        End Function

Waiting for your guidance .....