PrivateSub cbTheme_SelectedIndexChanged(sender AsObject, e As EventArgs)
Dim theme As C1Theme = C1ThemeController.GetThemeByName(cbTheme.Text, False)
If theme IsNotNothingThen
C1ThemeController.ApplyThemeToObject(c1FlexPivotPage1, theme)
EndIfEnd Sub