The best place to start is by using the C1ThemeDesigner app and find the path to style color you are looking for and send this path (see the arrow) to one of the functions included below depending on what you are looking for. There are many fonts, colors etc. set by a theme.
Function
Public Function getThemeBackgroundColor(path As String, Optional defaultColor As Color = Nothing, Optional theme As C1Theme = Nothing) As Color
getThemeBackgroundColor = defaultColor
Dim tbb As ThemeBrushBase = Nothing
If theme Is Nothing Then theme = getApplicationTheme()
Dim bg = CStr(theme.GetBackgroundBrushStr(path))
If bg Is Nothing Then
Return getThemeColor(path, defaultColor, theme)
End If
ThemeBrushBase.TryDecodeFromString(bg, tbb)
Dim solidBrush = TryCast(tbb, ThemeSolidBrush)
If solidBrush Is Nothing Then
Dim sbg = bg.ToString
Dim sbgs() = sbg.Split(vbCr)
If sbgs.Count > 0 Then
Select Case sbgs(0)
Case "ThemeTwoColorLinearBrush" 'ThemeTwoColorLinearBrush true 90 255, 187, 0 255, 229, 100
Dim sbgc = sbgs(3).Split(",")
getThemeBackgroundColor = Color.FromArgb(255, CInt(sbgc(0)), CInt(sbgc(1)), CInt(sbgc(2)))
Case "ThemeMultiColorLinearBrush" 'ThemeMultiColorLinearBrush true 90 0#251, 219, 181;0.3#254, 199, 120;0.301#254, 180, 86;1#253, 235, 159"
Dim sbgg = sbgs(3).Split(";")
Dim sbc = sbgg(0).Substring(sbgg(0).IndexOf("#") + 1)
Dim sbgc = sbc.Split(",")
getThemeBackgroundColor = Color.FromArgb(255, CInt(sbgc(0)), CInt(sbgc(1)), CInt(sbgc(2)))
End Select
End If
Else
getThemeBackgroundColor = solidBrush.Color
End If
End Function
Public Function getThemeBackgroundBrush(path As String, defaultColor As Color, Optional brushRectangle As Rectangle = Nothing, Optional theme As C1Theme = Nothing) As Brush
Dim tbb As ThemeBrushBase = Nothing
If theme Is Nothing Then theme = getApplicationTheme()
Dim bg = theme.GetBackgroundBrushStr(path)
ThemeBrushBase.TryDecodeFromString(bg, tbb)
If tbb Is Nothing Then
defaultColor = getThemeBackgroundColor(path)
Return New SolidBrush(defaultColor)
Else
If brushRectangle.Width = 0 Then
brushRectangle = New Rectangle(0, 0, 16, 16)
End If
Dim brush = tbb.GetBrush(brushRectangle)
If brush Is Nothing Then
defaultColor = getThemeBackgroundColor(path)
brush = New SolidBrush(defaultColor)
End If
Return brush
End If
End Function
Public Function getThemeColor(path As String, Optional defaultColor As Color = Nothing, Optional theme As C1Theme = Nothing) As Color
If theme Is Nothing Then theme = getApplicationTheme()
getThemeColor = theme.GetColor(path, defaultColor)
' Dim x = theme.Children(2).Children(0).Children(0).
End Function
Private Function getApplicationTheme() As C1Theme
Dim theme = C1ThemeController.GetThemeByName(My.Settings.applicationThemenName, False)
If theme Is Nothing Then
theme = C1ThemeController.GetThemeByName("Office2010Blue", False)
End If
Return theme
End