Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
Slider.activityHasActionBar = False
Dim sc As SliderContainer
sc.Initialize
sc.slider = Slider
sc.items.Initialize
For i = 1 To 8
sc.items.put(LoadBitmap(File.DirAssets,"_" & i & ".jpg"),"Item " & i)
Next
sc.slider.SetImages(sc.items)
sc.slider.SetZoomPanel(Activity)
End Sub