مشکل در حلقه for

[sherlock0111 11]

با سلام

من یه حلقه for برای نمایش لیست موضوعات توی یه اسکرول ویو نوشتم ولی فقط به اندازه ارتفاع اسکرول ویو موضوعات رو نمایش میده و اسکرول نمیشه

کد من:

Sub Globals

Private ScrollView1 As ScrollView

Private lblcatalogname As Label

Private txtsearch As EditText

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("frmbookmark")

Dim top As Int

top = 0

Dim a1() As String

a1 = Array As String("Capter 1","Capter 2","Capter 3","Capter 4","Capter 5","Capter 6","Capter 7")

For i = 0 To a1.Length - 1

Dim p1 As Panel

p1.Initialize("")

ScrollView1.Panel.AddView(p1,0,top,90%x,80dip)

top = top + 80dip

p1.LoadLayout("frmtempalte")

lblcatalogname.Text = a1(i)

lblcatalogname.Tag = a1(i)

Next

End Sub

[nicetitle 18]

آخر کدهات باید ارتفاع رو به اسکرول معرفی کنی...

ScrollView1.Panel.Height=top + 80dip