مشکل در نمایش متن پس از اعمالsetting

[mohamad9204 19]

سلام دوستان خسته نباشید

اول از همه برای شهادت حضرت جواد (ع)تسلیت

یه مشکل برام پیش اومده که امید وارم جوابشو بدونید

وقتی میخوام تنظیمات روی متن اعمال بشه با خطای زیر رو به رو میشم قبل از اون متن بخوبی نمایش داده میشه

یا علی

[mohamad9204 19]

کدی هم که خطا میده

Activity.LoadLayout("matn")
	sm.KeepAlive(True)
			If File.Exists(File.DirInternal,"Textonee.db")= False Then
	File.Copy(File.DirAssets,"Textonee.db",File.DirInternal,"Textonee.db")
	End If
	If fehrest_matn.SQL1.IsInitialized=False Then
	fehrest_matn.SQL1.Initialize(File.DirInternal,"Textonee.db",False)
	End If
	cur=fehrest_matn.SQL1.ExecQuery("SELECT * FROM tabl1 WHERE id="&fehrest_matn.fasl)
	For i=0 To cur.RowCount-1
	cur.Position=0
	If cur.GetInt("fav")=0 Then
	Dim Ba As BitmapDrawable
	Ba.Initialize(LoadBitmap(File.DirAssets,"star4.png"))
	btnfav.Background=Ba
	Else
	Dim Ba As BitmapDrawable
	Ba.Initialize(LoadBitmap(File.DirAssets,"star40.png"))
	btnfav.Background=Ba
	End If
	Next
	label1.Initialize("Label1")
	label1.text=cur.GetString("matn")
	label1.TextColor=Colors.Blue
	If File.Exists(File.DirInternal,"Settings.txt")=True Then
	Dim list1 As List
	list1=File.ReadList(File.DirInternal,"Settings.txt")
	'	Dim a As String
'	a = code.getData("setting.txt","FontColor")
	'label1.TextColor = code.getData("setting.txt","FontColor")
	msetting.font=list1.Get(0)
	msetting.size=list1.Get(1)

	Else
	msetting.font="BYEKAN"
	msetting.size=18
	End If
	label1.Gravity=Gravity.RIGHT
	label1.Typeface=Typeface.LoadFromAssets(msetting.font &".ttf")
	label1.TextSize=msetting.size
	ScrollView1.Panel.AddView(label1,0,0,ScrollView1.Width,ScrollView1.Height)
	Dim su As StringUtils
	label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)
	ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.Text)
	End Sub

این کد هست

	'	Dim a As String
'	a = code.getData("setting.txt","FontColor")
	'label1.TextColor = code.getData("setting.txt","FontColor")