Dim FL As List
Dim i As Int = 0
Dim ivpreviousleft As Int = 5
Dim picdimensions As Int = 0
FL = File.ListFiles(Main.ImagesDir) 'list images taken for case
Log(FL.Size)
For Each filename In FL
Dim iv As ImageView 'create an ImageView for each bitmap
iv.Initialize("iv")
picdimensions = ScrollView1.ContentHeight - 4
iv.Tag = filename
iv.Bitmap = LoadBitmap(Main.ImagesDir, filename)
ScrollView1.Panel.AddView(iv, ivpreviousleft, 2, picdimensions, picdimensions)
iv.ContentMode = iv.MODE_FIT
iv.SetBorder(1, Colors.Red, 4)
ivpreviousleft = (iv.Left + iv.Width) + 5
i = i + 1
Log(iv.Left & ":" & iv.Width)
Next