Function GetControl(ByVal ControlName As String) As Object
        For Each obj As Control In Me.Controls
            If obj.Name = ControlName Then
                Return obj
            End If
        Next
End Function

Dim t As TextBox = CType(Me.GetControl("TextBox1"), TextBox)