Dim o As Integer
Dim p As Integer
Dim q As Integer
Dim x As Integer
List3.Clear
x = 0
y = 0
For o = 0 To 89 Step 10 ' parte a contare da bari fino a torino
For p = o To p + 9
For q = p + 1 To o + 9
For u = o + 10 To 99 Step 10 'questa parte da cagliari fino a venezia
For n = u To n + 9
For m = n + 1 To u + 9
ProgressBar1.Value = ProgressBar1.Value + 0.01
sb = Text3(q)
sc = Text3(m)
dist3 = Abs(sb - sc) '1° verticale

If dist3 > 45 Then dist3 = 90 - dist3
If dist3 = 0 Then
For isoto = 10 To 89 Step 10
If Abs(q - m) = isoto Then
Text3(q).BackColor = &HFFFF&
Text3(m).BackColor = &HFFFF&
'List3.AddItem ruotaA & " " & ruotaB & " " & CStr(sb) & " " & CStr(sc) '& " " & CStr(q3) & " " & CStr(q4)
x = x + 1
y = y + 1

End If
Next isoto
End If
Next m
Next n
Next u
Next q
Next p
Next o
End Sub