Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
mBase = Base
Tag = mBase.Tag : mBase.Tag = Me
cvs.Initialize(mBase)
mMin = Props.Get("Min")
mMax = Props.Get("Max")
mValue = mMin
pnl = xui.CreatePanel("pnl")
xlbl = Lbl
xlbl.Visible = True
mBase.AddView(xlbl, 0, 0, 0, 0) '<---- the label is the first view that is added to mBase. mBase is a panel.
mBase.AddView(pnl, 0, 0, 0, 0)
ValueColor = xui.PaintOrColorToColor(Props.Get("ValueColor"))
mRollOver = Props.GetDefault("RollOver", False)
If xui.IsB4A Or xui.IsB4i Then
stroke = 8dip
Else If xui.IsB4J Then
stroke = 6dip
End If
Base_Resize(mBase.Width, mBase.Height)
End Sub