Sub spnNameTeams_ItemClick (Position As Int, Value As Object)
Dim anInputDialog As InputDialog
IME.ShowKeyboard(anInputDialog)
If aList.IsInitialized Then
anInputDialog.Show("New Team Name:","Current Team Name:" & Value,"OK","Cancel","",Null)
If anInputDialog.Response=DialogResponse.POSITIVE Then
Dim newValue As String=anInputDialog.Input
aList.RemoveAt(Position)
aList.InsertAt(Position,newValue)
spnNameTeams.Clear
spnNameTeams.AddAll(aList)
End If