ScrollView1.Initialize(193dip * 10) 'Innere Höhe definieren (nicht sichtbar)
Activity.AddView(ScrollView1, 2%x, 30%y, 96%x, 65%y) 'Sichtbare Linkaabstand, Obenabstand, Breite, Höhe definieren
For i = 0 To 31 'Relais Anzahl definieren von 0 bis 31 sind 32 Relais
Dim p As Panel
p.Initialize("")
p.Tag = i
p.LoadLayout("relais")
For v = 0 To p.NumberOfViews - 1
p.GetView(v).Tag = p 'set the panel as the Tag value
Next
ScrollView1.Panel.AddView(p, 0, i * 60dip, ScrollView1.Panel.Width, 58dip)
Next