Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
Dim vTOP,vLEFT,Espacio=15dip As Int
For cant = 1 To 15 Step 2
For col = 1 To 2
conB=conB+1
lb(conB).Initialize("")
lb(conB).Color=Colors.Black
lb(conB).TextColor=Colors.Yellow
lb(conB).TextSize=15
lb(conB).Gravity = Gravity.CENTER
lb(conB).Typeface = Typeface.DEFAULT_BOLD
lb(conB).Text=NumberFormat(conB,2,0)
If col = 1 Then Activity.AddView(lb(conB),vLEFT * col , vTOP, 30dip,30dip)
If col = 2 Then Activity.AddView(lb(conB),18dip * col , vTOP, 30dip,30dip)
If col + (cant - 1) = 15 Then Exit
Next
vTOP = vTOP + 21dip + Espacio
Next
End Sub