[VB6] eseguire una funzione

[francesco_test]

i = 0
Do While (i < UBound(VNumeri))
i = i + 1

List1.AddItem ((VNumeri(i)*VNumeri(i))+constante)
Loop

Ho messo tutte le parentesi che teoricamnete servono.
Prova tu ad eliminarle man mano senza che cambino i risultati.
Saluti.