Dim stepx = 1,stepy = 1,zerox = 10%x,zeroy = 17%y As Float
For i=0 To 15
Activity.AddView(img(i),0,0,0,0)
img(i).Width = 20%x
img(i).Height = 20%x
img(i).Top = zeroy * stepy
img(i).Left = zerox + stepx
If i mod 2 = 0 And Not(i = 0) Then
stepx = 1
stepy = stepy + 1
Else
stepx = stepx + 1
End If
Next