For i=0 To res.Length-1
Dim Currentuser() As String
Currentuser=Regex.Split("#",res(i))
nextpageurl=Currentuser(6)
Dim p As Panel
p.Initialize("p")
p.Background=bi
Dim likepanel As Panel
Dim likeicon As Label
likeicon.Initialize("")
likeicon.Typeface = FA.FontAwesomeTypeface
likeicon.Text=FA.GetFontAwesomeIconByNumber(61444)
likeicon.TextColor=Colors.Red
likeicon.TextSize=16
Dim likenumber As Label
likenumber.Initialize("")
likenumber.Typeface=Typeface.LoadFromAssets("rezvan.ttf")
likenumber.Text=""
likenumber.TextColor=Colors.RGB(9,175,193)
likenumber.TextSize=17
ScrollView1.Panel.AddView(p,left1,top1,30%x,20%y)
likepanel.Initialize("likepanel")
likepanel.Color=Colors.RGB(182,182,182)
p.AddView(likepanel,0,p.Height-20dip,100%x,20dip)
Dim img As ImageView
img.Initialize("")
p.AddView(img,0,0,p.Width,p.Height-20dip)
likepanel.AddView(likeicon,5dip,2dip,50dip,50dip)
likepanel.AddView(likenumber,50dip,0dip,100%x-50dip,20dip)
ScrollView1.SendToBack
left1 = left1 + 31%x
p.Tag = Currentuser(4)
If i mod 3 = 0 Then
top1 = top1 + 24%y
ScrollView1.Panel.Height = top1 + 33%y
'ScrollView1.Height=top1+31%y
left1 = 4.3%x
End If
CallSubDelayed2(ImageDownloader, "Download", links)
img.SetLayout(0,0,p.Width,p.Height-20dip)
links.Put(img, Currentuser(1))
likenumber.Text=Currentuser(2)
Next