ارور در ساخت کتاب با b4a

سلام من دارم یک کتاب درست میکنم ولی این کدها بهم ارور میده, مشکلش چیه؟

Sub btncolor_Click Color.Show(“کلکسیون رنگ” “ها “,”انتخاب “,”انصراف “,””,LoadBitmap(File.DirAssets,”000.png”)) Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout(“frm2″) If File.Exists(File.DirInternal,”dbbook.db”)= False Then File.Copy(File.DirAssets,”dbbook.db”,File.DirInternal,”dbbook.db”) End If If menu1.SQL1.IsInitialized=False Then menu1.SQL1.Initialize(File.DirInternal,”dbbook.db”,False) menu1.SQL1.Initialize(File.DirInternal,”dbbook.db”,False) End If cur=menu1.SQL1.ExecQuery(“SELECT * FROM Tbl1 WHERE id=”&menu1.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,”favorite.png”)) btnFav.Background=Ba Else Dim Ba As BitmapDrawable Ba.Initialize(LoadBitmap(File.DirAssets,”favorite1.png”)) btnFav.Background=Ba End If Next Label1.Initialize(“Label1”) Label1.text=cur.GetString(“Matn”) Label1.TextColor=Colors.White If File.Exists(File.DirInternal,”Settings.txt”)=True Then Dim list1 As List list1=File.ReadList(File.DirInternal,”Settings.txt”) Setting.font=list1.Get(0) Setting.size=list1.Get(1) Dim a As String a = code.getData(“setting.txt”,”FontColor”) Label1.TextColor = code.getData(“setting.txt”,”FontColor”) Else Setting.font=”BYEKAN” Setting.size=18 End If Label1.Gravity=Gravity.RIGHT Label1.Typeface=Typeface.LoadFromAssets(Setting.font &”.ttf”) Label1.TextSize=Setting.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