[Admiral]

Я так понимаю TextBox на каждую вкладку

Код:

        For x As Integer = 0 To TabControl.TabCount - 1
REM ... код из предыдущего поста
            Dim t As New TextBox
            TabControl.TabPages(x).Controls.Add(t)
            t.Name = "TextBox" & x + 1
            t.Text = 1000 * (x + 1)
        Next

    End Sub

    Protected Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)
        If TypeOf (sender) Is Button Then ' check to make sure that the sender is actually a Button
            MsgBox(TabControl.SelectedTab.Controls.Item(1).Text) 'Говорим что бы вывело текст контрола размещённого в выделенной вкладке по индексом 1, под 0 ушла кнопка
        End If
    End Sub