Dim ImageViews(300) As ImageView
For I = 1 To Main.Count
ImageViews(I).initialize("")
Panel1.AddView(ImageViews(I),19dip,30+(I-1)*330,350dip,178dip)
ImageViews(I).Bitmap = LoadBitmap(File.DirAssets, Main.Picture(I).ToLowerCase)
ImageViews(I).Gravity = Gravity.FILL
Next