Originariamente inviato da Magicolotto
l'indentazione incide dul codice?
Ovviamente no ... non e' mica COBOL!

Originariamente inviato da Magicolotto
credo che incida solo per capire a chi lo legge giusto?
Certo ... ma e' importante ...

Non hai indentato correttamente ...

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