Private Function GetTabFromXY(oTab As Object, ByVal x As Single, ByVal y As _
  Single) As Long
  Dim i As Long
 
  With oTab.Tabs
    For i = 1 To .Count
      With .Item(i)
        If x >= .Left And x < .Right And y >= .Top And y <= .Bottom Then
          GetTabFromXY = i: Exit For
        End If
      End With
    Next i
  End With
End Function

Private Sub sevTabStrip1_MouseDown(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
  Debug.Print Button, GetTabFromXY(sevTabStrip1, x, y)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de