Originariamente inviato da Magicolotto
ecco l'ho impostata cosi :

codice:
      Dim v() As String
    Dim r1 As Integer
    Dim r2 As Integer
    List2.Clear
    For i = 0 To List1.ListCount - 1
        v = Split(List1.List(i), " ")
        r1 = Val(r(1))
        r2 = Val(r(2))
        List2.AddItem CStr(r1) & " " & CStr(r2)
    Next i
per se le coppie sono 3

non mi restituisce i valori delle tre coppie , ma solo il valore dell'ultima coppia

dim i
l'ho tolta xchè gia esiste nella compilazine


il commando print mi restituica 0 0 0
poi di r1 e r2 ne ho 10
Se modifichi il codice che ti ho dato, devi stare attento a cio' che fai ... Io avevo scritto

r1 = Val(v(1))
r2 = Val(v(2))

usando l'array v !