l'indentazione incide dul codice?
credo che incida solo per capire a chi lo legge giusto?
sb
st
codice:Dim i As Integer Dim j As Integer Dim k As Integer Dim z As Integer List3.Clear z = 0 For i = 1 To 46 Step 5 For j = i To j + 4 For k = j + 1 To i + 4 sb = adoPrimaryRS(j) st = adoPrimaryRS(k) amb1 = Abs(sb - st) If amb1 > 45 Then amb1 = 90 - amb1 If amb1 = 30 Then List3.AddItem " ruota " & " " & CStr(sb) & " " & CStr(st) '& " " & CStr(n3) & " " & CStr(n4) End If z = z + 1 Next k Next j Next i