Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim myTabPage As TabPage = New TabPage("eins")
        Me.TabControl1.TabPages.Add(myTabPage)
        myTabPage = New TabPage("zwei")
        Me.TabControl1.TabPages.Add(myTabPage)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If Me.TabControl1.TabPages.Count > 0 Then
            Me.TabControl1.TabPages.Remove(Me.TabControl1.TabPages.Item(0))
        End If
    End Sub
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MessageBox.Show("Ganz normal")
    End Sub