Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private svcInspecao As ScrollView
Private pnlFormulario As Panel
Private lblPergunta As Label
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("inspecao")
svcInspecao.Panel.LoadLayout("meapague")
Dim ultimo As Int = 100dip
For x = 1 To 10
Dim p As Panel
p.Initialize("")
p.Width = pnlFormulario.Width
p.Height = 90dip
p.LoadLayout("campoTexto")
lblPergunta.Text = "controle " & x
pnlFormulario.Height = pnlFormulario.Height + 90dip
pnlFormulario.AddView(p, 0, ultimo, pnlFormulario.Width - 11dip, 90dip)
ultimo = ultimo + 100dip
Next
End Sub