Gradient1.Initialize(10, Height)
Gradient1.FillGradient(Clrs, Gradient1.TargetRect, Orientation)
Brush1 = Gradient1.CreateBrushFromBitmapCreator(Gradient1)
bc1.Initialize(Width, Height) 'First Square
bc1.DrawRectRounded2(bc1.TargetRect, Brush1, True, 0, Radius)
bmp1 = bc1.Bitmap