ListView1, realizado mediante código.

ListView2, ubicado en un layout llamado "equipos".
Además contiene un Button2.

ListView3, ubicado en un layout llamado "jugadores".
Además contiene un Button3 y un Label1.

Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
' enero 2013
End Sub

Sub Globals
      Dim ListView1, ListView2, ListView3 As ListView
      Dim Label1 As Label
      Dim Panel1, Panel2, Panel3 As Panel
      Dim futbol(4, 11, 15, 2) As String
      ' 3 Divisiones, 10 Equipos, 14 Jugadores, 1 Comentario
      Dim Division, Jugadores As Int
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
' El ListView1 está construido directamente en este código
' El ListView2 y ListView3 están construidos mediante el Designer y sus Layout
  
' Creación del Panel1 mediante código.
Panel1.Initialize("")
Activity.AddView(Panel1,0,0,100%x,100%y) '
Panel1.Visible=True 

' Creación del ListView1 dentro del Panel1
ListView1.Initialize("ListView1")
Dim GD As GradientDrawable
GD.Initialize("TR_BL", Array As Int(Colors.Red, Colors.Green))
Activity.Background = GD

ListView1.ScrollingBackgroundColor = Colors.Transparent
ListView1.SingleLineLayout.ItemHeight = 80dip
ListView1.SingleLineLayout.Label.TextSize = 15
ListView1.SingleLineLayout.Label.TextColor = Colors.Black
ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER
ListView1.FastScrollEnabled = True
Activity.AddView(ListView1, 0, 0, 100%x, 100%y) 


' Introducción de Datos en la tabla
  Introduccion_datos
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Introduccion_Datos
' Divisiones
ListView1.AddSingleLine("Primera División")
ListView1.AddSingleLine("Segunda División")
ListView1.AddSingleLine("Tercera División")
' Equipos Primera División
  futbol(1,1,0,0)="Real Madrid"
  futbol(1,2,0,0)="Barcelona"
  futbol(1,2,0,0)="Barcelona"
  futbol(1,3,0,0)="Málaga"
  futbol(1,4,0,0)="Valencia"
  futbol(1,5,0,0)="Sevilla"
  futbol(1,6,0,0)="Betis"
  futbol(1,7,0,0)="Granada"
' Equipos Segunda División
  futbol(2,1,0,0)="Xerez"
  futbol(2,2,0,0)="Celta"
  futbol(2,3,0,0)="Córdoba"
  futbol(2,4,0,0)="Almería"
  futbol(2,5,0,0)="Elche"
  futbol(2,6,0,0)="Recreativo"
  futbol(2,7,0,0)="Villareal"
' Equipos Tercera División
  futbol(3,1,0,0)="Cádiz"
  futbol(3,2,0,0)="Algeciras"
  futbol(3,3,0,0)="San Fernando"
  futbol(3,4,0,0)="Sanluqueño"
  futbol(3,5,0,0)="Portuense"
  futbol(3,6,0,0)="Puerto Real"
  futbol(3,7,1,0)="Linense"
  '''''''''''''''''''''''''''''
  ' Jugadores del Real Madrid
  futbol(1,1,1,0)="Cristiano Ronaldo"
  futbol(1,1,1,1)="Jugador rápido"
  futbol(1,1,2,0)="Pepe"
  futbol(1,1,2,1)="Jugador fuerte"
  futbol(1,1,3,0)="Casillas"
  futbol(1,1,3,1)="Jugador completo"
  futbol(1,1,4,0)="Xavi Alonso"
  futbol(1,1,4,1)="Jugador goleador"
  futbol(1,1,5,0)="Kaká"
  futbol(1,1,5,1)="Jugador lento"
  futbol(1,1,6,0)="Sergio Ramos"
  futbol(1,1,6,1)="Jugador defensivo"
  futbol(1,1,7,0)="Benzema"
  futbol(1,1,7,1)="Jugador agresivo"
  futbol(1,1,8,0)="Adan"
  futbol(1,1,8,1)="Jugador portero"
  ' Jugadores del Barcelona
  futbol(1,2,1,0)="Messi"
  futbol(1,2,1,1)="Jugador rápido"
  futbol(1,2,2,0)="Iniesta"
  futbol(1,2,2,1)="Jugador goleador"
  futbol(1,2,3,0)="Piqué"
  futbol(1,2,3,1)="Jugador defensivo"
  futbol(1,2,4,0)="Villa"
  futbol(1,2,4,1)="Jugador fuerte"
  futbol(1,2,5,0)="Carles Puyol"
  futbol(1,2,5,1)="Jugador organizador"
  futbol(1,2,6,0)="Victor Valdés"
  futbol(1,2,6,1)="Jugador portero"
  futbol(1,2,7,0)="Xavi"
  futbol(1,2,7,1)="Jugador lento"
  futbol(1,2,8,0)="Pedro"
  futbol(1,2,8,1)="Jugador veloz"

End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
' Elige la División

Division = Position + 1
RemoveViews
Activity.LoadLayout("equipos")
Activity.Title = Position & " - " & Value
            For j=1 To 7
            ListView2.AddSingleLine(futbol(Division,j,0,0))
            Next
    
End Sub

Sub ListView2_ItemClick (Position As Int, Value As Object)
' Elige el Equipo
Jugadores = Position + 1
RemoveViews
Activity.LoadLayout("jugadores")
Activity.Title = Position & " - " & Value
            For j=1 To 7
            ListView3.AddSingleLine(futbol(Division, Jugadores, j, 0))
            Next
    
End Sub

Sub ListView3_ItemClick (Position As Int, Value As Object)
' Elige al Jugador y pone sus caractarísticas en el Label1

Label1.Text=futbol(Division, Jugadores, Position + 1, 1)
    
End Sub

Sub RemoveViews
' Borra los elementos del Activity anterior
 Dim i As Int
 
 For i=Activity.NumberOfViews-1 To 0 Step -1
  Activity.RemoveViewAt(i)
 Next
End Sub

Sub Button3_Click
' Vuelve a mostrar los Equipos
RemoveViews
Activity.LoadLayout("equipos")
' Activity.Title = Position & " - " & Value
            For j=1 To 7
            ListView2.AddSingleLine(futbol(Division,j,0,0))
            Next
End Sub

Sub Button2_Click
' Vuelve a mostrar las Divisiones
RemoveViews
' Creación del Panel1 mediante código.
' Panel1.Initialize("")
Activity.AddView(Panel1,0,0,100%x,100%y) '
Panel1.Visible=True 

' Creación del ListView1 dentro del Panel1
' ListView1.Initialize("ListView1")
Dim GD As GradientDrawable
GD.Initialize("TR_BL", Array As Int(Colors.Red, Colors.Green))
Activity.Background = GD

ListView1.ScrollingBackgroundColor = Colors.Transparent
ListView1.SingleLineLayout.ItemHeight = 80dip
ListView1.SingleLineLayout.Label.TextSize = 15
ListView1.SingleLineLayout.Label.TextColor = Colors.Black
ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER
ListView1.FastScrollEnabled = True
Activity.AddView(ListView1, 0, 0, 100%x, 100%y) 
End Sub