For i = 0 To 99
Dim lbl As Label
lbl.Initialize("label")
Dim posx As Int = Rnd(0,100%x-50dip)
Dim posy As Int = Rnd(0,100%y-50dip)
Dim zufall As Int = Rnd(1, 101)
Dim col As Int
col = Colors.ARGB(Rnd(100, 150),Rnd(20, 800),Rnd(80, 160),Rnd(161, 255))
Dim col2 As Int
col2 = Colors.ARGB(Rnd(100, 150),Rnd(20, 800),Rnd(80, 160),Rnd(161, 255))
'Log("Zufall: "&zufall)
'Log("PosX: "&posx)
'Log("PosY: "&posy)
lbl.Text = zufall
lbl.Tag = zufall
lbl.TextColor = col2
lbl.Color = col
Activity.AddView(lbl,posx,posy,50dip,50dip)
Next