Spanish Leer list en segundo plano

#Region  Service Attributes
    #StartAtBoot: False
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim cuenta As Int
    cuenta = 0
    Dim hora As String
    Dim current_min As String
    Dim N As Notification
    Dim timer1 As Timer
    Dim cont As Int
End Sub

Sub Service_Create
    'Entra la 1era vez que inicia el servicio
    'Aqui se pueden inicializar los procesos y las variables globales
    'Este se mantiene en marcha hasta que se llame a StopService o se destruya
    'Establecimiento de las Propiedades de Notificación

    hora = DateTime.Time(DateTime.Now)
    
    
    timer1.Initialize("tim",3000)
    timer1.Enabled = True
    cont = 0
    
End Sub


Sub tim_tick
    cont = cont +1
    ToastMessageShow(cont,False)
    CallSub(Main, "muestra")
End Sub


Sub Service_Start (StartingIntent As Intent)

End Sub

Sub Service_Destroy

End Sub

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim tmrSplashFade As Timer
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private lblDesc As Label
    Private btnAccessibility As Button
    Private CheckBox1 As CheckBox
    Private btnAction As Button
    Private txtMsg As EditText
    Private btnSend As Button
    Private xui As XUI
    Private clv1 As CustomListView
    Private Label1 As B4XView
    Type CardData (Nombre As String, Telefono As String)
    Private Button1 As Button
    
    Dim registro As CardData
    
    Dim lista As List
    
    Private ImageView1 As B4XView
    Dim Timer1 As Timer
    Private IdLista As Int
    
    Dim intFadeCount As Int
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    
    If FirstTime Then
        Activity.LoadLayout("Splash")
        tmrSplashFade.Initialize("tmrSplash", 50)
        tmrSplashFade.Enabled = True
        intFadeCount = 0
    End If
    
    Activity.AddMenuItem("Salir","Salir")
    Activity.AddMenuItem("Configuracion","Configuracion")
    
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnSend_Click
    
    btnSend.Enabled = False
    
    StartService(Servicio)
    
    
End Sub

Sub Salir_Click
    CancelScheduledService(Servicio)  ' Para el  StartServiceAt
    StopService(Servicio)
    ExitApplication
End Sub


Public Sub muestra
    ' Utilizo la variable cont creada en el Servicio
    IdLista = Servicio.cont
    If IdLista <  lista.Size Then
        registro = lista.Get(IdLista)  'lista.Get(i)
        Log(registro.Telefono&" - "&registro.Nombre)
    Else
        btnSend.Enabled = True
        CancelScheduledService(Servicio)  ' Para el  StartServiceAt
        StopService(Servicio)
    End If
End Sub