Dim top As Int
Dim labels(5) As Label
For i = 0 To 4
labels(i).Initialize("Label")
If i = 0 Then top = 0
If i = 1 Then top = 20%y
If i = 2 Then top = 40%y
If i = 3 Then top = 60%y
If i = 4 Then top = 80%y
Activity.AddView(labels(i),0,top,100%x,20dip)
Next
Dim r As Int = Rnd(0,5)
labels(r).Text = "Hallo"