Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.LoadLayout("1")
Slider.Initialize("Slider")
Activity.AddView(Slider,0dip,0dip,100%x,100%y)
'
Slider.AddSlide("Hannibal", "http://static2.hypable.com/wp-content/uploads/2013/12/hannibal-season-2-release-date.jpg")
Slider.AddSlide("Big Bang Theory", "http://tvfiles.alphacoders.com/100/hdclearart-10.png")
Slider.AddSlide("House of Cards", "http://cdn3.nflximg.net/images/3093/2043093.jpg")
Slider.AddSlide("Game of Thrones", "http://images.boomsbeat.com/data/images/full/19640/game-of-thrones-season-4-jpg.jpg")
Dim filelist As List = File.ListFiles(File.DirDefaultExternal )
For Each fi As String In filelist
Dim path As String =File.Combine(File.DirDefaultExternal , fi)
If fi.LastIndexOf (".JPG")>0 Or fi.LastIndexOf (".png")>0 Then
Slider.AddSlide(fi , "file:" & path )
End If
Next
Slider.SetTransition(Slider.SLIDER_TRANSITION_Fade)
Slider.Delay=5000
Slider.Start
End Sub