Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As _  _
   System.EventArgs) Handles MenuItem5.Click
 
        Me.TabControl1.Visible = True
        Dim neuerKunde As New MuellerDB.formNeuKunde
        neuerKunde.StartPosition = FormStartPosition.Manual
        neuerKunde.MdiParent = Me
        neuerKunde.Show()
        Dim index As Integer
        index = (Me.MdiChildren.Length - 1)
        AddHandler MdiChildren(index).Closing, AddressOf deleteTab
        Dim page As New System.Windows.Forms.TabPage
        page.Text = neuerKunde.Text
        Me.TabControl1.Controls.Add(page)
 
    End Sub
 
 
 
Private Sub deleteTab(ByVal sender As Object, ByVal e As  _ _
  System.ComponentModel.CancelEventArgs)
        Dim existiert As Boolean = False
        Dim i As Integer
        For i = 0 To (Me.TabControl1.TabCount - 1)
            Dim j As Integer
            For j = 0 To (Me.MdiChildren.Length - 1)
                If Me.TabControl1.TabPages(i).Text = Me.MdiChildren(j).Text Then
                    existiert = True
                End If
            Next
            If existiert = False Then
                Me.TabControl1.TabPages.Remove(Me.TabControl1.TabPages(i))
            End If
        Next
    End Sub