Public Class Form1
    Private WithEvents Tc As New TabControl
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(375, 200)
        Tc.SetBounds(10, 10, 350, 150)
        Tc.SizeMode = TabSizeMode.Fixed
        Tc.ItemSize = New Size(65, 18)
        For i As Int32 = 0 To 4
            Tc.TabPages.Add("TabPage" & i.ToString, "TabPage" & i.ToString)
        Next
        Me.Controls.Add(Tc)
    End Sub
 
    Private Sub Tc_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Tc.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right AndAlso _
        Tc.TabPages.Count > 1 Then
            For i As Int32 = 0 To Tc.TabPages.Count - 1
                Dim min As Int32 = 3 + (i * Tc.ItemSize.Width)
                If e.X > min AndAlso e.X < min + (Tc.ItemSize.Width - 3) Then
                    Tc.TabPages.RemoveAt(i)
                End If
            Next
        End If
    End Sub
End Class