اصلاح اندازه لیست ویو

سلام خداقوت
من یه لیست ویو نوشتم برای صفحه ارتباط با ما

منتها انتهای لیست ویو رو نمیتونم تنظیم کنم که وقتی گزینه ها تموم میشه اون هم تموم بشه و یک فضای خالی زیادی رو به اپ تحمیل کرده
ممنون میشم ایراد کدهام رو بفرمایید

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("ltamas")

slv1.Initialize(1000dip)
Activity.AddView(slv1,0%x,10%y,100%x,90%y)
slv1.Panel.Height=1540dip
slv1.SendToBack

slv2

End Sub

Sub slv2
Dim slv1pnl1 As Panel
slv1pnl1.Initialize("slv1pnl1")
' slv1pnl1.Color=Colors.Red
slv1.Panel.AddView(slv1pnl1,0,5,slv1.Width,300)
slv1pnl1.SetBackgroundImage(LoadBitmap(File.DirAssets,"13.jpg"))

Dim imgboss As ImageView
imgboss.Initialize("imgboss")
imgboss.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png")
slv1pnl1.AddView(imgboss,5,5,295,290)
imgboss.Gravity=Gravity.FILL

Dim imgtelboss As ImageView
imgtelboss.Initialize("imgtelboss")
imgtelboss.Bitmap=LoadBitmap(File.DirAssets,"phone1.png")
slv1pnl1.AddView(imgtelboss,imgboss.Width+60,190,100,130)
imgtelboss.Gravity=Gravity.FILL

Dim imgpmboss As ImageView
imgpmboss.Initialize("imgpmboss")
imgpmboss.Bitmap=LoadBitmap(File.DirAssets,"sms1.png")
slv1pnl1.AddView(imgpmboss,imgtelboss.Width+60+imgboss.Width+60,205,100,100)
imgpmboss.Gravity=Gravity.FILL

Dim slv1pnl2 As Panel
slv1pnl2.Initialize("slv1pnl2")
slv1pnl2.SetBackgroundImage(LoadBitmap(File.DirAssets,"13.jpg"))
' slv1pnl2.Color=Colors.Red
slv1.Panel.AddView(slv1pnl2,0,310,slv1.Width,300)

Dim imgmod As ImageView
imgmod.Initialize("imgmod")
imgmod.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png")
slv1pnl2.AddView(imgmod,5,5,295,290)
imgmod.Gravity=Gravity.FILL

Dim imgtelmod As ImageView
imgtelmod.Initialize("imgtelmod")
imgtelmod.Bitmap=LoadBitmap(File.DirAssets,"phone2.png")
slv1pnl2.AddView(imgtelmod,imgmod.Width+60,190,100,130)
imgtelmod.Gravity=Gravity.FILL

Dim imgpmmod As ImageView
imgpmmod.Initialize("imgpmmod")
imgpmmod.Bitmap=LoadBitmap(File.DirAssets,"sms1.png")
slv1pnl2.AddView(imgpmmod,imgtelmod.Width+60+imgmod.Width+60,205,100,100)
imgpmmod.Gravity=Gravity.FILL

Dim slv1pnl3 As Panel
slv1pnl3.Initialize("slv1pnl3")
slv1pnl3.SetBackgroundImage(LoadBitmap(File.DirAssets,"13.jpg"))
' slv1pnl3.Color=Colors.Red
slv1.Panel.AddView(slv1pnl3,0,615,slv1.Width,300)

Dim imgbaz As ImageView
imgbaz.Initialize("imgbaz")
imgbaz.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png")
slv1pnl3.AddView(imgbaz,5,5,295,290)
imgbaz.Gravity=Gravity.FILL

Dim imgtelbaz As ImageView
imgtelbaz.Initialize("imgtelbaz")
imgtelbaz.Bitmap=LoadBitmap(File.DirAssets,"phone1.png")
slv1pnl3.AddView(imgtelbaz,imgbaz.Width+60,190,100,130)
imgtelbaz.Gravity=Gravity.FILL

Dim imgpmbaz As ImageView
imgpmbaz.Initialize("imgpmbaz")
imgpmbaz.Bitmap=LoadBitmap(File.DirAssets,"sms1.png")
slv1pnl3.AddView(imgpmbaz,imgtelbaz.Width+60+imgbaz.Width+60,205,100,100)
imgpmbaz.Gravity=Gravity.FILL

Dim slv1pnl4 As Panel
slv1pnl4.Initialize("slv1pnl4")
slv1pnl4.SetBackgroundImage(LoadBitmap(File.DirAssets,"13.jpg"))
' slv1pnl4.Color=Colors.Red
slv1.Panel.AddView(slv1pnl4,0,920,slv1.Width,300)

Dim imghes As ImageView
imghes.Initialize("imghes")
imghes.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png")
slv1pnl4.AddView(imghes,5,5,295,290)
imghes.Gravity=Gravity.FILL

Dim imgtelhes As ImageView
imgtelhes.Initialize("imgtelhes")
imgtelhes.Bitmap=LoadBitmap(File.DirAssets,"phone2.png")
slv1pnl4.AddView(imgtelhes,imghes.Width+60,190,100,130)
imgtelhes.Gravity=Gravity.FILL

Dim imgpmhes As ImageView
imgpmhes.Initialize("imgpmhes")
imgpmhes.Bitmap=LoadBitmap(File.DirAssets,"sms1.png")
slv1pnl4.AddView(imgpmhes,imgtelhes.Width+60+imghes.Width+60,205,100,100)
imgpmhes.Gravity=Gravity.FILL

Dim slv1pnl5 As Panel
slv1pnl5.Initialize("slv1pnl5")
slv1pnl5.SetBackgroundImage(LoadBitmap(File.DirAssets,"13.jpg"))
' slv1pnl5.Color=Colors.Red
slv1.Panel.AddView(slv1pnl5,0,1225,slv1.Width,300)

Dim imgdab As ImageView
imgdab.Initialize("imgdab")
imgdab.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png")
slv1pnl5.AddView(imgdab,5,5,295,290)
imgdab.Gravity=Gravity.FILL

Dim imgteldab As ImageView
imgteldab.Initialize("imgteldab")
imgteldab.Bitmap=LoadBitmap(File.DirAssets,"phone1.png")
slv1pnl5.AddView(imgteldab,imgdab.Width+60,190,100,130)
imgteldab.Gravity=Gravity.FILL

Dim imgpmdab As ImageView
imgpmdab.Initialize("imgpmdab")
imgpmdab.Bitmap=LoadBitmap(File.DirAssets,"sms1.png")
slv1pnl5.AddView(imgpmdab,imgteldab.Width+60+imgdab.Width+60,205,100,100)
imgpmdab.Gravity=Gravity.FILL

' slv1.Panel.Height=1540dip
End Sub