s1.Initialize(1000000)
Activity.AddView(s1,10,10,100%x,100%y)
For i = 0 To 100000
Dim l2,l1,l3 As Label
Dim btnfav,btnread,btndelete,btnshair As Button
l1.Initialize("")
l2.Initialize("")
l3.Initialize("")
btnfav.Initialize("btnfav")
btnread.Initialize("btnread")
btndelete.Initialize("btndelete")
btnshair.Initialize("btnshair")
s1.Panel.AddView(l1,0,stop,100%x,50dip)
s1.Panel.AddView(l2,0,stop,100%x,50dip)
s1.Panel.AddView(l3,0,stop,100%x,50dip)
s1.Panel.AddView(btnfav,0,stop,100%x,50dip)
s1.Panel.AddView(btnread,0,stop,100%x,50dip)
s1.Panel.AddView(btndelete,0,stop,100%x,50dip)
s1.Panel.AddView(btnshair,0,stop,100%x,50dip)
l1.Text=i
l2.Text=i
l3.Text=i
Next