Dim ColorArray(2) As Int
ColorArray(0) = DisabledColor
ColorArray(1) = xui.Color_White
Dim dr As GradientDrawable
Dim Ori As String = mprops.Get("orientation")
dr.Initialize(Ori,ColorArray)
dr.CornerRadius = mprops.Get("gradradius")
Dim PNL As Panel = mBase
PNL.Background = dr
mBase=PNL