For i1 = 0 To 5
Dim img As ImageView
img.Initialize("img")
img.Gravity=Gravity.FILL
img.Bitmap=LoadBitmap(File.DirAssets , "image.webp")
Dim pnl As HorizontalScrollView
pnl.Initialize(500dip,"scroll"&i)
pnl.Panel.Initialize("")
appscrollpnl.Panel.AddView(pnl,10dip,topanel, Activity.Width - 20dip, 80dip)
pnl.Panel.Width=480dip
pnl.Width=Activity.Width-20dip
pnl.Panel.AddView(img,left,0,80dip,80dip)
left=left + 80dip
Next