مشکل در اسکرول ویو و پنل

[majid08 266]

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

	Dim offsetY  as Int = 1%y
Dim Cr As Cursor
 Cr = s90.ExecQuery("SELECT * FROM tbl1 WHERE type='"&type1.Text&"' ")
 For i = 0 To  Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  Scrolravayat.Panel.AddView(p,1%x,offsetY,99%x,100%y)
 
  offsetY = offsetY + 20%y
  p.LoadLayout("btn1")
  p.Tag = Cr.GetInt("id")
 Labelmazaj.Tag=Cr.GetInt("id")
 
  
   Labelmazaj.Text=Cr.GetString("onvan")

	
 Next
 Cr.Close
 Scrolravayat.Panel.Height = offsetY+13%y

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

 p.LoadLayout("btn1") 

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

لطفا راهنماییم کنید

اینم کدهام

Dim Cr As Cursor
 Cr = s90.ExecQuery("SELECT * FROM tbl1 WHERE type='"&type1.Text&"' ")
 For i = 0 To  Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  
  Dim lab As Label
  lab.Initialize("lab")
  lab.Text= Cr.GetString("matn")
  
  p.AddView(lab,1%x,0,99%x,100%y)
  p.Tag = Cr.GetInt("id")

  Scrolravayat.Panel.AddView(p,1%x,offsetY,99%x,100%y)
 
 
 Next
 Cr.Close
 Scrolravayat.Panel.Height = offsetY 
 

متشکرم