Dim btnx As Int=0
For i=0 To 6
Dim pnlx As Panel
Dim lblCategory As Label
Dim pnlCategoryItems As Panel
Dim imgCategory As ImageView
'Dim Panel1 As Panel
pnlx.Initialize("")
pnlx.LoadLayout("categories")
If i=0 Then
lblCategory.Text="Bc"
imgCategory.Bitmap=LoadBitmap(File.DirAssets,"bd.png")
Else if i=1 Then
lblCategory.Text="Cx"
imgCategory.Bitmap=LoadBitmap(File.DirAssets,"cx.png")
End If
ScrollViewMain.Panel.AddView(pnlx, 0,btnx,100%x,290dip)
btnx=btnx+290dip
Next
ScrollViewMain.panel.Height=btnx