Listview

Hello
Here 's my program

Sub Process_Globals

End Sub

Sub Globals
Dim List_Pays as ListView
Dim List_Regions as ListView
Dim List_Villes as ListView
Dim List_Affich as ListView
Dim Pays, Regions, Villes as Panel
Dim Name as String
End Sub

Sub Activity_Create(FirstTime As Boolean)

' Load List_Pays
' Load_List_Regions
' Load_List_Villes

Pays.Initialize("Pays")
Regions.Initialize("Regions")
Villes.Initialize("Villes")

End Sub

Sub Pays_Click
Name = "Pays"
Affich(Pays)
End Sub

Sub Regions_Click
Name = "Regions"
Affich(Regions)
End Sub

Sub Villes_Click
Name = "Villes"
Affich(Villes)
End Sub

Sub Affich(List as ListView)
List_Affich.Initialize("ListClick")
List_Affich = List
Msgbox("List_size " & List.Size,"Suivi")
Msgbox("List_Affich_size " & List_Affich.Size,"Suivi")
Activity.AddView(List_Affich,0,20,100,180)
End Sub

Sub ListClick_ItemClick(Position As Int, Value As Object)
Select Case name
Case "Pays"
Pays.Text = List_Affich.GetItem(position)
Case "Regions"
Regions.Text = List_Affich.GetItem(position)
Case "Villes"
Villes.Text = List_Affich.GetItem(position)
End Select
End Sub

if I click on Pays the first time not problem

if I click again on Pays problem

List.size = 0
List_Affich.size = 0


Why ???

Best regards