Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
    Dim TabContrl As New TabPage
    TabControl1.Controls.Add(TabContrl)
    TabContrl.Text = "Test"
    TabContrl.Name = "TestTab"
    TabControl1.SelectedTab = TabContrl
End Sub
 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button2.Click
    TabControl1.TabPages.RemoveByKey("TestTab")
End Sub