B4J Question Progress Indicator on Insert TableView

  listarticoli =  parser.NextArray 'returns a list
       
        pagMax = listarticoli.Size / 15
        pagCorrente = 1
        lblPage.Text = pagCorrente & "/" & pagMax

Sub btAvanti_Action ()
If  pagCorrente < pagMax Then
  pagCorrente = pagCorrente + 1
 
  lblPage.Text = pagCorrente & "/" & pagMax
  AggiornaArticoli(listarticoli)

End If

Sub btIndietro_Action ()
If  pagCorrente > 1 Then
  pagCorrente = pagCorrente - 1
 
  lblPage.Text = pagCorrente & "/" & pagMax
  AggiornaArticoli(listarticoli)
End If
End Sub

 Dim i As Int
  i = (pagCorrente * 15 ) -15
  For i = i To i + 15
    If i<= RSean.Size Then
      M= RSean.Get(i)
    end if
next

Dim listarticoli As ResultSet
listarticoli = Main.SQL1.ExecQuery(" Select *  FROM Articoli  Where " & filtro )
prova(listarticoli)

sub prova(RSean As List)

Dim M As Map
Dim i As Int
  i = (pagCorrente * 15 ) -15
  For i = i To i + 15
    If i<= RSean.Size Then
      M= RSean.Get(i)
    end if
next
end sub

Sub prova(rs As ResultSet)
 Dim index As Int = 0
 Do While index < pagCorrente * 14 AND rs.NextRow = True
  index = index + 1
 Loop
 Do While index < pagCorrente * 15 AND rs.NextRow = True
  index = index + 1
  'work with row
 Loop
End Sub