Tab Questions

[codenewbie]

Here is the full code.
updated to prevent the user from closing the last tab.

    Private Sub MainWindow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Tp As New TabPage
        Dim NewTab As New Tab
        NewTab.Show()
        NewTab.TopLevel = False
        NewTab.Dock = DockStyle.Fill
        Tp.Controls.Add(NewTab)
        TabControlBox.TabPages.Add(Tp)
    End Sub

    Private Sub MainWindow_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
        Dim Tp As New TabPage
        Dim NewTab As New Tab
        NewTab.Show()
        NewTab.TopLevel = False
        NewTab.Dock = DockStyle.Fill
        Tp.Controls.Add(NewTab)
        TabControlBox.TabPages.Add(Tp)
        TabControlBox.SelectedTab = Tp
    End Sub

    Private Sub TabControlBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabControlBox.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If TabControlBox.TabCount > 1 Then
                If Not TabPageIndex = -1 Then
                    Dim CurrentIndex As Integer = TabControlBox.SelectedIndex
                    TabControlBox.Controls.RemoveAt(TabPageIndex)
                    If CurrentIndex < TabPageIndex Then
                        TabControlBox.SelectedIndex = CurrentIndex
                    ElseIf CurrentIndex > TabPageIndex Then
                        TabControlBox.SelectedIndex = CurrentIndex - 1
                    Else
                        If CurrentIndex < TabControlBox.TabCount Then
                            TabControlBox.SelectedIndex = CurrentIndex
                        Else
                            TabControlBox.SelectedIndex = 0
                        End If
                    End If
                End If
            End If
        End If
    End Sub

End Class