nel form dove visualizzi devi mettere
codice:
For i = 1 To 1000
                If codici(i) <> Empty Then label1.Caption = label1.Caption & " " & codici(i)
Next i