Private Sub Form_Load()
  With sevTab1
    .SelectedItem.Bold = True
    .SelectedItem.ForeColor = vbBlue
  End With
End Sub

Private Sub sevTab1_SelectChanged(TItem As sevTab.Tab)
  Dim i As Long
 
  With sevTab1
    For i = 1 To .Tabs.Count
      .Tabs(i).Bold = (i = TItem.Index)
      .Tabs(i).ForeColor = IIf(i = TItem.Index, vbBlue, vbWindowText)
    Next i
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de