Android Question convert CustomListView to CustomListView with lazy loading with data from httpjob

sub globals
    dim jRoot as list
    ...
end sub

Sub downloadEmailsLista
....
..
    If j.Success Then
        Log(j.GetString)
        Dim parser As JSONParser
        parser.Initialize(j.getstring)
       jRoot  = parser.NextArray
    Else
        ToastMessageShow("Error: " & j.ErrorMessage, True)
    End If
    j.Release

    ProgressDialogHide
End Sub

sub decodeline(index)
            dim coljRoot as map
            coljRoot = jRoot.get(index)
            my_enabled = coljRoot.Get("my_enabled")
            my_appversion = coljRoot.Get("my_appversion")
            my_email = coljRoot.Get("my_email")
            my_last_see = coljRoot.Get("my_last_see")
....
...
end sub

Sub downloadEmailsLista
    ' Initialize the variables.
    Dim UsersCV As CustomListView
    Dim bytemail() As Byte
    Dim byteSalsy() As Byte
    Dim index As Int = 1
    Dim e As List
    e.Initialize
    ' Create the custom list view.


    ' Load the data from the API.
    Dim j As HttpJob
    j.Initialize("", Me) 'name is empty as it is no longer needed
    j.Download(ServerURl & "/clickandclaim-host/restapi.php?api=tbl-users&orderby=my_iduser&sort=asc")
    ProgressDialogShow2("Loading User list...",False)
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Log(j.GetString)

        Dim parser As JSONParser
        parser.Initialize(j.getstring)
        jRoot  = parser.NextArray
    Else
        ToastMessageShow("Error: " & j.ErrorMessage, True)
    End If
    j.Release

    ProgressDialogHide


End Sub

Sub JobDone(j As HttpJob)
    If j.Success Then
        Log(j.GetString)

        Dim parser As JSONParser
        parser.Initialize(j.getstring)
        jRoot  = parser.NextArray
    Else
        ToastMessageShow("Error: " & j.ErrorMessage, True)
    End If
    j.Release

    ProgressDialogHide
End Sub

Private Sub UsersCV_LazyLoad (FirstIndex As Int, LastIndex As Int)
    Dim bytemail() As Byte
    Dim byteSalsy() As Byte
    Dim daydif As Int = 0

    Dim ExtraSize As Int = 20

    For i As Int = Max(0, FirstIndex - ExtraSize) To Min(LastIndex + ExtraSize, UsersCV.Size - 1):
        If i >= jRoot.Size Then Exit

        Dim coljRoot As Map = jRoot.Get(i)
        my_enabled = coljRoot.Get("my_enabled")
        my_appversion = coljRoot.Get("my_appversion")
        my_email = coljRoot.Get("my_email")
        my_last_see = coljRoot.Get("my_last_see")
        my_iduser = coljRoot.Get("my_iduser")

        UsersCV.Add(CreateItem(UsersCV.AsView.Width, my_iduser, my_email, daydif, my_appversion), "")
    Next
  
End Sub

Private Sub CreateItem(Width As Int, userid As String, email As String, last As String, version As String) As Panel
    Dim p As B4XView = xui.CreatePanel("")
    Dim height As Int = 160dip 'UsersCV.AsView.Height '350dip  '50dip
    p.SetLayoutAnimated(0, 0, 0, Width, height)
    p.LoadLayout("CLV_UTENTI")
    p.Color = Colors.Cyan

    lbluserID.Text = userid
    lblemail.Text = email

    lbllastactivity.Text = "Ultima attività: "
    txtastactivity.Text = last

    lblversion.Text = "Versione: "
    txtversion.Text = version
    index = userid
    Return p
End Sub

Sub UsersCV_VisibleRangeChanged(FirstVisible As Int, LastVisible As Int)
    ' Lazy load the data for the visible range
    Dim Items() As Object
    Items = LoadData(FirstVisible, LastVisible)
    ' Add the items to the custom list view.
    For i = FirstVisible To LastVisible
        UsersCV.Add(Items(i), "")
    Next
End Sub

Sub LoadData(FirstVisible As Int, LastVisible As Int) As Object()
    ' Create an array to store the data
    Dim Items() As Object
    ' Iterate over the visible range
    For i = FirstVisible To LastVisible
        ' Add the data to the array
        Items = Array(i)
    Next
    ' Return the array
    Return Items
End Sub

Sub UsersCV_LazyLoad(FirstIndex As Int, LastIndex As Int)

Dim ExtraSize As Int = 20
Dim daydif As Int
Dim items() As Object

If jRoot.IsInitialized Then
    items = jRoot.GetRange(FirstIndex, LastIndex + 1)
    For i As Int = 0 To items.Size - 1
        daydif = DateUtils.GetDaysBetween(DateTime.Now, items(i).Get("my_last_see"))
        UsersCV.Add(CreateItem(UsersCV.AsView.Width, items(i).Get("my_iduser"), items(i).Get("my_email"), daydif, items(i).Get("my_appversion")), "")
    Next
End If

End Sub
{/code]
This rewrite uses another technique to rewrite the For loop. Instead of iterating directly on the jRoot array, the function creates a new array items that contains only the elements of the jRoot array that are located within the specified range. This makes the code more efficient, since it is not necessary to iterate over the entire jRoot array each time the method is called.

I can upload a demo for test the code