Sub httpC_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Dim result As String
positio=0
result = Response.GetString("UTF8")
File.WriteString(File.DirInternalCache, "scores.sco",result)
reader.Initialize(File.OpenInput(File.DirInternalCache, "scores.sco"))
Dim line As String
line = reader.ReadLine
Do While line <> Null
positio=line.IndexOf(";")
ClieSpinner.Add(line.SubString(positio+1))
idlistacliente.Add(line.SubString2(0,positio))
line = reader.ReadLine
positio=0
Loop
reader.Close
ProgressDialogHide
End Sub