Sub Activity_Create(FirstTime As Boolean)
Dim panels(15) As Panel
For i = 0 To panels.Length - 1
panels(i).Initialize("panels")
Dim imga As ImageView
imga.Initialize("")
imga.Bitmap = LoadBitmapSample(File.DirAssets, "picture" & i & ".jpg", 100%x, 100%y)
imga.Gravity = Gravity.Center
panels(i).AddView(imga,0,0,100%x,100%y)
Activity.AddView(panels(i), 100%x, 0, 100%x, 100%y)
Next
ActiveBitmap.Initialize(File.DirAssets, "indicator_active.png")
InactiveBitmap.Initialize(File.DirAssets, "indicator_inactive.png")
sd.Initialize
SlidingPanels.Initialize(sd, panels, True, 50)
sd.currentPanel = currentPanelBeforePaused - 1
Indicator = SlidingPanels.CreatePageIndicator(panels.Length, InactiveBitmap, 120dip, 16dip)
Activity.AddView(Indicator, (100%x - 120dip) / 2, 0, 120dip, 16dip)
Indicator.BringToFront
ChangePanel(0)
End Sub