Dim Lb1 As Label
scv.Left = 0 : scv.Top = 0 ' scv è uno ScrollView
scv.Panel.Height = 1000dip
'
Lb1.Initialize("Lb1")
Lb1.TextSize = 12 : Lb1.Color = Colors.white : Lb1.TextColor = Colors.black : Lb1.Text = "Cerca nome"
scv.Panel.AddView (Lb1,10dip,20dip,70dip,40dip)
TxNome.Initialize("TxNome") ' TxNome è un EditText dichiarato in Globals
TxNome.TextSize = 14
TxNome.Color = Colors.gray
TxNome.TextColor = Colors.black
TxNome.InputType = TxNome.INPUT_TYPE_TEXT
' TxNome.ForceDoneButton = True
' TxNome.Wrap = True
TxNome.Enabled = True
TxNome.Visible = True
scv.Panel.AddView (TxNome,80dip,20dip,160dip,40dip)