ست کردن لیبل با اسکرول ویو

[majid08 266]

سلام

کسی میدونه مشکل کدهای زیر چیه که قسمت متن رو نصفه نشون میده و بقیه درسته

Dim h2 As Int = 60%y

Dim ms As MSCardView
ms.Initialize("MS")
ms.Elevation=4dip
ms.MaxElevation=4dip
ScrollView1.Panel.AddView(ms,0,h2,100%x,180dip)
'....................................................................................عنوان 
Dim lbonvan As Label
lbonvan.Initialize("lbonvan")
lbonvan.Text=m1_2.Text
lbonvan.TextColor=Colors.Black
lbonvan.Gravity=Gravity.RIGHT
ms.Panel.AddView(lbonvan,10%x,1dip,80%x,30dip)
'.........................................................................................خط جدا کننده

Dim pspliter As Panel
pspliter.Initialize("pspliter")
pspliter.Color=Colors.Gray
ms.Panel.AddView(pspliter,0,lbonvan.Top+lbonvan.Height+5dip,100%x,1dip)


'........................................................................................... متن
Dim lbmatn As Label
lbmatn.Initialize("lbmatn")
lbmatn.Text=lb3.Text
lbmatn.Gravity=Gravity.RIGHT
ms.Panel.AddView(lbmatn,10%x,lbonvan.Top+lbonvan.Height+11dip,85%x,50dip)
lbmatn.Height=su.MeasureMultilineTextHeight(lbmatn,lbmatn.Text)


'......................................................................................... خط جدا کننده
Dim pspliter2 As Panel
pspliter2.Initialize("pspliter2")
pspliter2.Color=Colors.Gray
ms.Panel.AddView(pspliter2,0,lbmatn.top+lbmatn.Height+25dip,100%x,1dip)



'........................................................................................... دسته
Dim lbcatagory As Label
lbcatagory.Initialize("lbcatagory")
lbcatagory.Text=type1.Text
lbcatagory.TextColor=Colors.Black
lbcatagory.Gravity=Gravity.RIGHT
ms.Panel.AddView(lbcatagory,5%x+10dip,lbmatn.top+lbmatn.Height+32dip,80%x,25dip)


ms.Height=120dip+lbmatn.Height
h2=h2+ms.Height+50dip
ScrollView1.Panel.Height=h2