Public myStyle As MUNStyle2.clsStyle
 
Private Sub Form_Load()
   Set myStyle = New myClsStyle.clsStyle
     myStyle.PrepareControls Me
end sub

Public Sub PrepareControls(Form)
 
Dim ctrl As Control
 
On Error GoTo ErrorHandler
 
Form.BackColor = &HF5BE9E
 
For Each ctrl In Form
    Select Case True
 
Case TypeOf ctrl Is sevOutBar3.OutBar
    ctrl.ItemBackColorHover = &HC2EEFF
    ctrl.GroupHotTrackingColor = &HC2EEFF
    Case TypeOf ctrl Is sevMenuXP.MenuBar
        ctrl.Style = mnuOffice2003
    Case TypeOf ctrl Is sevDataGrid2.sevGrid
        If Not ctrl.Tag = "userdef" Then
          ctrl.CaptionBackColorFrom = RGB(89, 135, 214)
          ctrl.CaptionBackColorTo = RGB(0, 45, 150)
          ctrl.CaptionFont = "Arial"
          ctrl.CaptionFont.Bold = True
          ctrl.CaptionForeColor = vbWhite
          ctrl.ColumnHeaderBackColor = &H8000000F
          ctrl.BorderStyle = BORDER_NONE
          ctrl.BalloonTip = True
          ctrl.ToolTipIcon = ttInfoIcon
          ctrl.ToolTipTitle = ctrl.Caption
          ctrl.HighlightBackColor = RGB(49, 106, 197)
          ctrl.HighlightForeColor = vbWhite
          ctrl.CheckBoxStyle = CHECKBOX_XP
          ctrl.FilterAlign = FILTER_ALIGN_BOTTOM
          ctrl.FilterForeColor = &HC00000
          ctrl.FilterForeColorDisabled = &H404040
          ctrl.FilterBackColor = &HFFD6B5
          ctrl.FilterBackColorDisabled = &HD68759
          ctrl.BackColorOdd = &HFFFFFF
          ctrl.BackColorEven = &HFFFFFF
          ctrl.BackColor = &HFFFFFF
          ctrl.LinkColor = vbBlack
        End If
        ctrl.CaptionHeight = 24
        ctrl.ColumnHeaderHeight = 18
        ctrl.MaskColor = &HFF00&
        ctrl.UseMaskColor = True
 
    Case TypeOf ctrl Is sevTextBox.sevText
        ctrl.CaptionGradient = True
        ctrl.CaptionBackColorTo = &HFFD6B5
        ctrl.CaptionBackColor = &HFCF5F3
        ctrl.BackColorDisabled = &HE0E0E0
        ctrl.MaxLength = 255
        ctrl.ListWidth = 3000
 
    Case TypeOf ctrl Is sevCommand3.Command
        ctrl.BorderColorHover = &HB17F3C
        ctrl.BorderColorFocus = &HB17F3C
        ctrl.HoverColorTo = &HF5BE9E
        ctrl.BorderStyle = 2
    End Select
Next
 
  Exit Sub
ErrorHandler:
   MsgBox Err.Description
End Sub