Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
mBase = Base
Tag = mBase.Tag : mBase.Tag = Me
Dim xlbl As B4XView = Lbl
#if B4J
cmbBox.Initialize("cmbBox")
Dim xbox As B4XView = cmbBox
xbox.Font = xlbl.Font
mBase.AddView(cmbBox, 0, 0, mBase.Width, mBase.Height)
#Else If B4A
cmbBox.Initialize("cmbBox")
cmbBox.TextSize = xlbl.TextSize
mBase.AddView(cmbBox, 0, 0, mBase.Width, mBase.Height)
#Else If B4i
Dim btn As Button
btn.Initialize("btn", btn.STYLE_SYSTEM)
mBtn = btn
mBtn.Font = xlbl.Font
mBase.AddView(mBtn, 0, 0, mBase.Width, mBase.Height)
#End If
End Sub