questa è un'altra cosa interessante
ma andiamo con calma, che già sono confuso
			
				B4X:
			
		
		
		    Do While dbCursor.NextRow
        Dim Giocatore As tGiocatori
        Giocatore = CreatetGiocatori(dbCursor.GetString("id"), _
                                     dbCursor.GetString("nome"), _
                                     dbCursor.GetString("cognome"), _
                                     dbCursor.GetString("eta"), _
                                     dbCursor.GetString("altezza"), _
                                     dbCursor.GetString("sport"))
        XCLV1.Add(CreaItem(Giocatore, ItemWidth, ItemHeight),Giocatore)
    LoopCreata automaticamente dall'editor, come scritto in preDecenza:
			
				B4X:
			
		
		
		Public Sub CreatetGiocatori (Id As String, Nome As String, Cognome As String, Eta As String, Altezza As String, Sport As String) As tGiocatori
    Dim t1 As tGiocatori
    t1.Initialize
    t1.Id = Id
    t1.Nome = Nome
    t1.Cognome = Cognome
    t1.Eta = Eta
    t1.Altezza = Altezza
    t1.Sport = Sport
    Return t1
End Sub 
				 
 
		 
 
		 
 
		 
 
		