Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
mBase = Base
mBase.SetLayoutAnimated(0, mBase.Left, mBase.Top, Min(mBase.Width, mBase.Height), Min(mBase.Width, mBase.Height))
clrFull = xui.PaintOrColorToColor(Props.Get("ColorFull"))
clrEmpty = xui.PaintOrColorToColor(Props.Get("ColorEmpty"))
stroke = DipToCurrent(Props.Get("StrokeWidth"))
DurationFromZeroTo100 = Props.Get("Duration")
mLbl = Lbl
mLbl.Visible = True 'Added this line
cx = mBase.Width / 2
cy = mBase.Height / 2
radius = cx - 10dip
cvs.Initialize(mBase)
mLbl.SetTextAlignment("CENTER", "CENTER")
mBase.AddView(mLbl, 0, cy - 20dip, mBase.Width, 40dip)
cvs.Initialize(mBase)
DrawValue(currentValue)
End Sub