مشکل در استفاده از اسکرول ویو تتوسط کد نویسی

[arf 30]

سلام

زمانی که در کد زیر xx را عددی زیر ۸ می زارم برنامه کار میکند ولی هنگامی که عددی بین ۸ تا ۱۱ قرار می دهم کار نکرده و برنامه را می بندد.

چرا؟؟؟؟

Sub Globals
	Private TH1 As TabHost
	Private SV As ScrollView
	Private Panel1 As Panel
	Private L1 As Label
	Private L3 As Label
	Private IV2 As ImageView
	Private IV1 As ImageView
	Private L2 As Label
	Private SV2 As ScrollView
	Private Panel2 As Panel
	Private IV8 As ImageView
	Private IV7 As ImageView
	Private L4 As Label
	Private L5 As Label
	Private L6 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("TAPHOST")
	
	Dim a(11) As String
	a=Array As String("غیبت","عصبانیت","تهمت","تکبر","قضا‌شدن‌نماز","حسد","حق الناس","اتلاف‌وقت","پیمان‌شکنی","پرخوری","بد‌اخلاقی","اسراف")
	
	TH1.AddTab("بد","sv.bal")
	TH1.AddTab("نیک","svv.bal")
	TH1.SetLayout(0,0,100%x,100%y)
	
	
	
	
	Dim up,xx As Int
	up=0
	For i=0 To xx
	Dim pan,pan2 As Panel
	pan.Initialize("")
	SV.Panel.AddView(pan,0,up,100%x,500dip)
	
	pan2.Initialize("")
	SV2.Panel.AddView(pan2,0,up,100%x,500dip)
	
	up=up+90dip
	pan.LoadLayout("GONAH")
	pan2.LoadLayout("savaab")
	
	L1.Text=a(i)
	L2.Text="." & i

	L4.Text=a(i)
	L5.Text="." & i

	Next
	
End Sub	

[arf 30]

چی کار باید کنم؟