Option Explicit
 
Private Declare Function GetSysColor Lib "user32" ( _
  ByVal nIndex As Long) As Long
 
Public Function SetTabBackColor(ByVal Color As Long) As Long
  Dim R As Long
  Dim G As Long
  Dim B As Long
 
  If (Color And &HFF000000) = &H80000000 Then 
    Color = GetSysColor(Color And &HFFFFFF) 
  End If
 
  R = Color And &HFF&
  G = Color \ &H100& And &HFF&
  B = Color \ &H10000 And &HFF&
 
  SetTabBackColor = RGB(R, G, B) - 1
End Function

Private Sub Form_Load()
  sevTab1.BackColor = SetTabBackColor(Me.BackColor)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de