Sub InitPanel(pnl As Panel,BorderWidth As Float, FillColor As Int, BorderColor As Int)
Try
Dim Rec As Rect
Dim Canvas1 As Canvas
Dim BorderWidth_2 As Float
Dim transicion As GradientDrawable
Dim Clrs(3) As Int
Clrs(0) = Colors.RGB(30,30,30)
Clrs(1) = FillColor
Clrs(2) = Colors.RGB(30,30,30)
transicion.Initialize("TOP_BOTTOM", Clrs)
BorderWidth_2=BorderWidth/2
Rec.Initialize(BorderWidth_2,BorderWidth_2,pnl.Width-BorderWidth_2,pnl.Height-BorderWidth_2)
Canvas1.Initialize(pnl)
Canvas1.DrawDrawable(transicion, Rec)
Canvas1.DrawRect(Rec,BorderColor,False,BorderWidth)
Canvas1.RemoveClip
Catch
Log(LastException)
End Try
End Sub