Hi Esteban,
As far as I know, there is no FlatStyle for RadControls, but please try this and let me know any adjustments that you would like to make
Richard
Imports Telerik.WinControls.UI
Imports Telerik.WinControls
Imports Telerik.WinControls.Primitives
Public Class MyRadSplitButton
Inherits RadSplitButton
Public Sub New()
MyBase.New()
Me.ThemeClassName = "Telerik.WinControls.UI.RadSplitButton"
End Sub
Protected Overrides Sub OnLoad(ByVal desiredSize As System.Drawing.Size)
Dim shape As New RoundRectShape()
shape.BottomLeftRounded = True
shape.BottomRightRounded = False
shape.TopLeftRounded = False
shape.TopRightRounded = False
shape.Radius = 0
Me.DropDownButtonElement.Shape = shape
CType(Me.DropDownButtonElement.Children(1).Children(0).Children(0), FillPrimitive).BackColor = Color.White
CType(Me.DropDownButtonElement.Children(1).Children(0).Children(0), FillPrimitive).GradientStyle = GradientStyles.Solid
CType(Me.DropDownButtonElement.Children(1).Children(1).Children(0), FillPrimitive).BackColor = Color.White
CType(Me.DropDownButtonElement.Children(1).Children(1).Children(0), FillPrimitive).GradientStyle = GradientStyles.Solid
Me.DropDownButtonElement.ForeColor = Color.DarkGreen
MyBase.OnLoad(desiredSize)
End Sub
End Class