گالری عکس با دریافت عکس از سرور

[zanyar hasani 8]

سلام دوستان من کد زیر رو برای دریافت عکس از سرور توی سایت اصلی پیدا کردم خیلی خوب هم کار میکنه اما ببینید من می خوام توی هر ردیف سه تا عکس باشه اما با این کد خودم اولین عکس فقط توی یه ردیف قرار میگیره بقیه عکس ها درست هر سه تا عکس توی یه ردیف هستند لطفا بفرمایید مشکل کجاست

Dim profilelinks As Map
	profilelinks.Initialize
	profilelinks.Put(profilepic, "http://test.ir/image.png")

	CallSubDelayed2(ImageDownloader, "Download", profilelinks)

کد خودم برای نمایش هر سه عکس در یه ردیف :

Dim left1 , top1 As Int
		left1 =3%x
		top1 = 3%x	
For i=0 To res.Length-1
Dim Currentuser() As String
Currentuser=Regex.Split("#",res(i))



		
			Dim p As Panel
			p.Initialize("p")
			p.LoadLayout("harpost")
			p.Background=background1
			
			
	
		
	ScrollView1.Panel.AddView(p,left1,top1,30%x,20%y)
			ScrollView1.SendToBack
			left1 = left1 + 31%x
			
	
	p.Tag = i
				If i mod 3 = 0 Then
			top1 = top1 + 24%y
			ScrollView1.Panel.Height = top1 + 33%y
			
			left1 = 3%x
				End If
			
		
		
	


	CallSubDelayed2(ImageDownloader, "Download", links)
	
	postpic.SetLayout(2dip,10dip,p.Width-2dip,p.Height-2dip)
Next

End If