Public SetControls(oForm As Form)
  Dim oControl As Control
 
  For Each oControl In oForm
    If TypeName(oControl) = "sevText" Then
      With oControl
        ' Hintergrund-Farbverlauf einstellen
        .CaptionBackColor = RGB(74, 136, 255)
        .CaptionBackColorTo = RGB(206, 231, 247)
        .CaptionForeColor = vbWhite
        .CaptionGradient = True
      End With
    End If
  Next 
End Sub

Private Sub Form_Load()
  SetControls Me
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de