Prima di cercare di capire cosa vuoi fare, cominciamo da questo codice ...

Originariamente inviato da Magicolotto
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
                ' USA sb E st al posto di N1 e N2
                ' ALTRIMENTI si fa confusione inutilmente
                '
                List3.AddItem " ruota " & " " & CStr(sb) & "  " & CStr(st) 
              End If

              z = z + 1 ' Questo DEVE stare fuori dall'if
            Next k
        Next j
    Next i
1) Metti z = z + 1 fuori dalla if ... io non l'avevo messo in una if ...

2) Non utilizzare variabili in piu' che non servono ... invece di n1 e n2 utilizza sb e st che gia' ci sono

3) Fai pulizia nel codice che mostri e indentalo correttamente ... e' IMPORTANTISSIMO per poterti rispondere ...

Poi parliamo di tutto il resto ...

dovtrei lasciarci stare con VB
Non sarebbe una cattiva idea ...