Dim lvCustomers As ListView
Dim panels(8) As Panel
For i = 0 To panels.Length - 1
panels(i).Initialize("panels")
Activity.AddView(panels(i), 100%x, 0, 100%x, 100%y - 60dip) 'add the panel to the layout
panels(i).Color = Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))
Next
lvCustomers.Initialize("lvCustomers")
panels(1).AddView(lvCustomers,0, 0, 100%x, 100%y)
panels(0).LoadLayout("menu")
NewBitmap1.Initialize(File.DirAssets,"menu.jpg")
panels(0).SetBackgroundImage(NewBitmap1)