[VB.NET] Usare valore stringa per puntare a un oggetto

[Pirelli72]

Ovvio, sarebbe stato il passo successivo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DirectCast(FindControl("TextBox1",Me), TextBox).Text = "Find it"
    End Sub

 Public Function FindControl(ByVal ControlName As String, ByVal CurrentControl As Control) As Control
        For Each ctr As Control In CurrentControl.Controls
            If ctr.Name = ControlName Then
                Return ctr
            Else
                ctr = FindControl(ControlName, ctr)
                If Not ctr Is Nothing Then
                    Return ctr
                End If
            End If
        Next ctr
        Return Nothing
    End Function