EmersonH.Com

Public Class Form1

Dim Count As Int16 = 0



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim NewTab As New TabPage

Dim NewTextBox As New TextBox

NewTab.Name = "new tab " & CStr(Count)

NewTab.Text = NewTab.Name

NewTextBox.Text = CStr(Count)

Count += 1

Me.TabControl1.Controls.Add(NewTab)

NewTab.Controls.Add(NewTextBox)

Me.TabControl1.SelectedIndex = Me.TabControl1.TabCount - 1

End Sub

End Class