Dim path1 As String = File.Combine(File.DirRootExternal,"/BetaVersion/")
Dim files As List = File.ListFiles(path1)
Dim bd As BitmapDrawable
For i = 0 To files.Size - 1
Dim p As Panel : p.Initialize("")
hsvPages.Panel.AddView(p, i * hsvPages.Width, 0, 100%x, 100%y)
bd.Initialize(LoadBitmapSample(path1,files.Get(i),p.Width,p.Height))
p.Background = bd
Next