ScrollView1.Initialize(0)
pnl = ScrollView1.Panel
pnl.Color=Colors.Gray
Activity.AddView(ScrollView1, 600dip, 10dip, 100%x, 100%y)
For num = 0 To descrizione_co.Length-1
If descrizione_ci(num)=scelta_circuito Then
chk.Initialize("chk")
chk.Tag=trovato
chk.TextColor=Colors.Cyan
chk.TextSize=24
chk.Text = descrizione_co(num).ToUpperCase
' lstChecks.Add(chk)
Dim lbl1,lbl2 As Label
lbl1.Initialize("")
lbl1.TextColor=Colors.Green
lbl1.Text = "Qta . " & qta_co(num)
lbl1.Gravity = Gravity.CENTER_VERTICAL
pnl.AddView(chk, 0, height * (trovato - 1), 195dip, height)
pnl.AddView(lbl1, 200dip, height * (trovato - 1), 120dip, height)
trovato=trovato+1