Sub DrawRoundedRect(Width As Int, Height As Int, Radius As Int, Clrs() As Int, Orientation As String) As B4XBitmap
Dim Gradient As BitmapCreator
Gradient.Initialize(10, Height)
Gradient.FillGradient(Clrs, Gradient.TargetRect, Orientation)
Dim Brush As BCBrush = Gradient.CreateBrushFromBitmapCreator(Gradient)
Dim bc As BitmapCreator
bc.Initialize(Width, Height)
bc.DrawRectRounded2(bc.TargetRect, Brush, False, 0, Radius)
Return bc.Bitmap
End Sub