>>5さん
どうもありがとうございます。
コードを参考にさせていただきました。
全てのTabに対して領域内にあるかどうかでチェックすると
nSelectedIndex に右クリックされたタブのインデックスが入ります。

Private Sub TabStrip1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
　
　If Button = vbRightButton Then
　　Dim tb
　　For Each tb In TabStrip1.Tabs
　　　If tb.Left < (X + TabStrip1.Left) And (X + TabStrip1.Left) < tb.Left + tb.Width And _
　　　　　　tb.Top < (Y + TabStrip1.Top) And (Y + TabStrip1.Top) < tb.Top + tb.Height Then
　　　　nSelectedIndex = tb.Index
　　　End If
　　Next
　End If
　
End Sub

さーて改造改造…
# 余談ですが、　Dim tb as Tab　ってやったら構文エラーでした。入力候補にも出ているのに何故？