مشکل برنامه نویسی من

[web1001 4]

با سلام

دارم برنامه ای برای ایجاد کتاب می نویسم. قسمتی از برنامم ارور میده ولی نمیدونم مشکلش کجاست.

ممنون میشم که کمکم کنید

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

Sub Process_Globals
	Dim blcatalog As Boolean
	
End Sub

Sub Globals
	
	Private lblcatalog As Label
	Private titrHeader1 As Label
	Private ScrollView11 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
If blcatalog = True Then 
		titrHeader1.text = "جلسات آموزشی "
Else
		titrHeader1.Text = "علاقمندی ها"
End If


	
Dim top As Int
top = 0
Dim a1() As String
If blcatalog = True Then
	a1= Array As String("جلسه 1","جلسه 2","جلسه 3","جلسه 4")
Else
	a1= Array As String("جلسه 1","جلسه 4")
End If
For i = 0 To a1.Length-1
	Dim p1 As Panel
	p1.Initialize("")
	ScrollView11.Panel.AddView(p1,0,top,90%x,60dip)
	p1.LoadLayout("frmTempelet")
	lblcatalog.Tag = a1(i)
	lblcatalog.Text = a1(i)
	top = top + 60dip
Next

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		Activity.Finish
		Return True
	End If
End Sub



Sub lblcatalog_Click
	Dim v1 As Label
	v1 = Sender
	matn.sTitle = v1.Tag
	StartActivity(matn)
	
End Sub

به این دو خط گیر میده

Private titrHeader1 As Label
    Private ScrollView11 As ScrollView

[web1001 4]

 

اینم از تصویر یکی از خطاها

[علی علایی 161]

عزیز دل فک نمیکنی خود لایه رو لود نکردی 

Activity.LoadLayout("Layout1")

[web1001 4]

یادم رفته بود.

دمت گرم دادا