Public Sub MakewTab(WhereToDraw As Panel, Width As Float, Height As Float, Color As Int, Filled As Boolean) As Bitmap
Dim C As Canvas
Dim B As Bitmap
Dim R As Rect
Dim R2 As Rect
Dim P As Path
WhereToDraw.SetLayoutAnimated(0, 1, 0, 0, Width, Height)
C.Initialize(WhereToDraw)
Log($"W/H ${Width} / ${Height}"$)
R.Initialize(0, 1dip, Width, Height * 2)
R2.Initialize(0, (Height /2), Width, Height)
Log($"Rect : L/T ${R.Left} / ${R.Top} R/B ${R.Right} / ${R.Bottom}"$)
Log($"Rect2: L/T ${R2.Left} / ${R2.Top} R/B ${R2.Right} / ${R2.Bottom}"$)
C.DrawRectRounded(R, Colors.White, False, 1dip, mTabBorderRadius)
R.Initialize(2dip, 2dip, (Width - 2dip), Height * 2)
C.DrawRectRounded(R, Colors.Black, False, mTabBorderWidth, mTabBorderRadius)
Dim Top As Float = Height / 2
Width = Width - 2dip
P.Initialize(Width, Top)
P.LineTo(Width, Height-2dip)
P.LineTo(2dip, Height-2dip)
P.LineTo(2dip, Top)
C.DrawPath(P, Colors.Blue, False, mTabBorderWidth)
B = C.CreateBitmap
WhereToDraw.RemoveViewFromParent
Return B
End Sub