For Each ctrl As Control In tp.Controls
            If TypeOf ctrl Is TextBox AndAlso ctrl.Name = "TheBox" Then
                Dim tbo As TextBox = DirectCast(ctrl, TextBox)
                tbo.Text = "Was auch immer"
            End If
        Next ctrl