Dim butStart As New Button()
        butStart.Parent = tpFlug 'tabpage tpFlug
        butStart.Text = "Timer Start"
        butStart.AutoSize = True
        butStart.Location = New Point(100, 100)

    Private Sub butStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
    Handles butStart.Click
 
        MsgBox("Test", MsgBoxStyle.Critical)
    End Sub

AddHandler butStart.Click, AddressOf butStart_Click

        Dim txtAuflass As TextBox = CType(sender, TextBox)
 
        txtAuflass.Text = "hallo"

        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

Public Class frmTabDemo
 
    Dim tc As New TabControl With _
            {.Parent = Me, .Dock = DockStyle.Fill}
 
    Dim tp As New TabPage With _
            {.Parent = tc, .Dock = DockStyle.Fill, .Text = "TheTab"}
 
 
 
    Private Sub frmTabDemo_Load(sender As System.Object, _
                         e As System.EventArgs) Handles MyBase.Load
 
        Me.Width = 500
 
        Dim tbo As New TextBox With _
                      {.Parent = tp, .Font = New Font("Arial", 24), _
                       .Dock = DockStyle.Top, .Name = "TheBox"}
 
        Dim btn As New Button With _
                     {.Parent = tp, .Text = "Click", .Top = 100}
        AddHandler btn.Click, AddressOf btn_Click
 
    End Sub
 
 
 
    Public Sub btn_Click(sender As Object, e As EventArgs)
 
        For Each ctrl As Control In tp.Controls
            If TypeOf ctrl Is TextBox AndAlso ctrl.Name = "TheBox" Then
                Dim tb As TextBox = DirectCast(ctrl, TextBox)
                tb.Text = "Da tut sich schon etwas"
            End If
        Next ctrl
    End Sub
End Class

    Public Sub btn_Click(sender As Object, e As EventArgs)
 
        Dim ctrl() As Control = Me.Controls.Find("TheBox", True)
 
        If ctrl.Length > 0 AndAlso TypeOf ctrl(0) Is TextBox Then
            Dim tb As TextBox = DirectCast(ctrl(0), TextBox)
            tb.Text = "Da tut sich schon etwas"
        End If
 
    End Sub