Option Explicit
 
Private mx As Single
Private my As Single

Private Sub sevTabStrip1_MouseDown(Button As Integer, Shift As Integer, _
  x As Single, y As Single)
 
  mx = x: my = y
End Sub

Private Sub sevTabStrip1_Click()
  If mx > 0 And my > 0 Then
    Debug.Print "Click auf " & GetTabFromXY(sevTabStrip1, mx, my)
  End If
End Sub

' Tab-Reiter anhand Mausposition ermitteln
Private Function GetTabFromXY(oTab As Object, _
  ByVal x As Single, ByVal y As Single) As Long
 
  Dim i As Long
 
  With oTab.Tabs
    ' alle Tab-Objekte durchlaufen
    For i = 1 To .Count
      With .Item(i)
        ' jetzt prüfen, ob angegebene Mausposition
        ' innerhalb des Reiter-Rechtecks liegt
        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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de