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