Public Sub DesignerCreateView (Base As Panel, Lbl As Label, Props As Map)
mBase = Base
CallSubDelayed2(Me,"LoadLayout",Props)
End Sub
Sub LoadLayout(Props As Map)
Dim Holder As Panel
Holder.Initialize("")
Dim Act As Activity=Props.Get("activity")
Act.AddView(Holder,20dip,20dip,350dip,350dip)
Holder.LoadLayout("test")
Dim Hours(2) As String=Array As String("0","23")
Wheel1.SetObject(Hours)
Wheel1.SetAppearance(Colors.Yellow,Colors.Blue,24,Gravity.CENTER)
End Sub