Кнопка закрытия вкладки TabControl

Private Sub TabOpenForms_DrawItem(ByVal sender As Object, ByVal e As system.Windows.Forms.DrawItemEventArgs) Handles TabOpenForms.DrawItem
        Try
            Dim SelImg As Image = My.Resources.editdeleteGrey
            If ActiveClose = True Then
                SelImg = My.Resources.editdelete
            End If
 
            Dim IconImg As Image = My.Resources.FileAdd
            Dim r As Rectangle = e.Bounds
            r = Me.TabOpenForms.GetTabRect(e.Index)
            r.Offset(2, 2)
            Dim sf As New StringFormat
            'sf.Alignment = StringAlignment.Center
            sf.LineAlignment = StringAlignment.Center
 
            Dim f As Font = Me.Font
            Dim title As String = Me.TabOpenForms.TabPages(e.Index).Text
 
            Dim myTabRect As Rectangle = TabOpenForms.GetTabRect(e.Index)
 
            If e.Index <> Me.TabOpenForms.SelectedIndex Then
                e.Graphics.FillRectangle(Brushes.DarkGray, myTabRect)
                'e.Graphics.DrawImage(img, New Point(IconImg.Width + r.X + (Me.TabOpenForms.GetTabRect(e.Index).Width - _imageLocation.X + 3), r.Y + 2))
                Dim TitleBrush As Brush = New SolidBrush(Color.White)
                e.Graphics.DrawString(title, f, TitleBrush, New PointF(8 + r.X, r.Y + r.Height / 2), sf)
 
            Else
                e.Graphics.FillRectangle(Brushes.White, myTabRect)
                e.Graphics.DrawImage(SelImg, New Point(IconImg.Width + r.X + (Me.TabOpenForms.GetTabRect(e.Index).Width - _imageLocation.X + 3), r.Y))
                Dim TitleBrush As Brush = New SolidBrush(Color.Blue)
                e.Graphics.DrawString(title, f, TitleBrush, New PointF(8 + r.X, r.Y + r.Height / 2), sf)
            End If
            'e.Graphics.DrawImage(IconImg, New Point((Me.TabOpenForms.GetTabRect(e.Index).Left + 4), 4))
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
 Private Sub TabOpenForms_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabOpenForms.MouseClick
        Dim tc As TabControl = CType(sender, TabControl)
        Dim p As Point = e.Location
        Dim _tabWidth As Integer
 
        _tabWidth = Me.TabOpenForms.GetTabRect(tc.SelectedIndex).Width - (_imgHitArea.X)
        Dim r As Rectangle = Me.TabOpenForms.GetTabRect(tc.SelectedIndex)
        r.Offset(_tabWidth + 10, _imgHitArea.Y)
        r.Width = 16
        r.Height = 16
        If r.Contains(p) Then
            Dim TabP As TabPage = DirectCast(tc.TabPages.Item(tc.SelectedIndex), TabPage)
            Dim T As Form = Nothing
            For i = 0 To Me.MdiChildren.Length - 1
                If Me.MdiChildren(i).Name = TabP.Name Then
                    T = Me.MdiChildren(i)
                    i = Me.MdiChildren.Length - 1
                End If
            Next
            If Not (T Is Nothing) Then
                T.Close()
            End If
            tc.TabPages.Remove(TabP)
        End If
    End Sub
 
 Private Sub TabOpenForms_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabOpenForms.MouseMove
        Dim tc As TabControl = CType(sender, TabControl)
        Dim p As Point = e.Location
        Dim _tabWidth As Integer
        _tabWidth = Me.TabOpenForms.GetTabRect(tc.SelectedIndex).Width - (_imgHitArea.X)
        Dim r As Rectangle = Me.TabOpenForms.GetTabRect(tc.SelectedIndex)
        r.Offset(_tabWidth + 10, _imgHitArea.Y)
        r.Width = 16
        r.Height = 16
        If r.Contains(p) Then
            Dim TabP As TabPage = DirectCast(tc.TabPages.Item(tc.SelectedIndex), TabPage)
            tc.Cursor = Cursors.Hand
            If ActiveClose = False Then
                ActiveClose = True
                tc.Refresh()
            End If
        Else
            tc.Cursor = Cursors.Arrow
            If ActiveClose = True Then
                ActiveClose = False
                tc.Refresh()
            End If
        End If
    End Sub

Public Class Form1
 
    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
        Call AddPage()
    End Sub
 
    Private Sub AddPage()
        Dim Page As TabPage
        If TabControl1.SelectedIndex = TabControl1.TabPages.Count - 1 Then
            Page = TabControl1.TabPages(TabControl1.TabPages.Count - 1)
            TabControl1.TabPages(TabControl1.TabPages.Count - 1).Text = "ТавPage" & TabControl1.SelectedIndex
            TabControl1.TabPages.Add(New TabPage)
            TabControl1.TabPages(TabControl1.TabPages.Count - 1).Text = "Еще…"
        End If
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Call AddPage()
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim I As Integer = TabControl1.SelectedIndex
        TabControl1.TabPages.RemoveAt(I)
        If I > 0 Then
            TabControl1.SelectedIndex = I - 1
        End If
    End Sub
 
End Class