Sub ListViewSite_ItemClick (Position As Int, Value As Object)
RemoveViews
Activity.LoadLayout("AAAAAA")
TabStrip1.LoadLayout("Page1", "1111111")
TabStrip1.LoadLayout("Page2", "2222222")
TabStrip1.LoadLayout("Page3", "3333333")
TabStrip1.LoadLayout("Page4", "4444444")
TabStrip1.LoadLayout("Page5", "5555555")
TabStrip1.LoadLayout("Page6", "6666666")
TabStrip1.LoadLayout("Page7", "7777777")
' etc............
End Sub
Sub TabStrip1_PageSelected (Position As Int)
Select Position
Case "0"
TOTO
Case "1"
TITI
Case "2"
' etc.....
End Select
End Sub