ایراد این کد کجاشه؟

[bahman 165]

#Region  Activity Attributes 
   #FullScreen: True
   #IncludeTitle: False
#End Region

Sub Process_Globals

     Dim SQL1 As SQL
   Dim cursur1 As Cursor

End Sub
Sub Globals

   Private Panel1 As Panel
   Private Label1 As Label
   Private btnnumber As Button
   Private btnshare As Button
   Private btncopy As Button
   Private ScrollView1 As ScrollView
   Private Button1 As Button
   Private Label4 As Label
   Private Label5 As Label
   Dim myfont As Typeface
   Dim text As String
   Dim ht As Float
   Dim StrUtil As StringUtils
   Dim PanelHeight As Int

End Sub

Sub Activity_Create(FirstTime As Boolean)

   If File.Exists(File.DirInternal,"smsa.db")=False Then
   File.copy(File.DirAssets,"smsa.db",File.DirInternal,"smsa.db")
   End If
   If SQL1.IsInitialized = False Then
   SQL1.Initialize(File.DirInternal,"smsa.db",True)
   End If
cursur1 = SQL1.ExecQuery("SELECT sms FROM smstb") 

   ScrollView1.Typeface = Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt")&".ttf")
   Activity.LoadLayout("sv")

   For i=0 To cursur1.RowCount-1
   cursur1.Position=i
   text= cursur1.GetString("sms") 
   ScrollView1.Panel.Color = Colors.Transparent

ممنون میشم بگن دوستان ایراد کجاست

یه اکتیویتی تنظیمات دارم ک فونتو طبق کد

    Activity.LoadLayout("setting")
       If File.Exists(File.DirInternal,"fontType.txt") = False Then
       File.Copy(File.DirAssets,"fontType.txt",File.DirInternal,"FontType.txt")
   End If
   If File.Exists(File.DirInternal,"fontSize.txt") = False Then
       File.Copy(File.DirAssets,"fontSize.txt",File.DirInternal,"FontSize.txt")
   End If
   If File.Exists(File.DirInternal,"color.txt") = False Then
       File.Copy(File.DirAssets,"color.txt",File.DirInternal,"color.txt")
   End If
Label1.TextSize = fontsize.value
fonttype.AddAll(Array As String("انتخاب فونت","1","2","3","4","5","6","7"))

تو فایلی ذخیره میکنه و بعد تو کد بالا همینو لود کردم

[bahman 165]

منتظرتونم دوستانننننن