[VB.net] instruction non effectuée dans une boucle

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ' Lance un sous-processus
        Dim t As New System.Threading.Thread(AddressOf sous_processus)
        t.Start()
    End Sub

    ' Cette méthode (ou fonction) est effectuée par le sous-processus
    ' Tu dois donc faire un Invoke du label a modifier car dans le cas contraire
    ' tu auras une erreur :
    ' Opération inter-threads non valide : le contrôle a fait l'objet d'un accès à partir d'un thread autre que celui sur lequel il à été crée
    Private Sub sous_processus()
        Dim ip As String
        Dim numero As String
        Dim host As String = ""
        For compteur As Integer = 1 To 30

            numero = compteur
            ip = "192.168.1." + numero
            MAJ_inter_thread(Label2, ip)
            'MsgBox(ip)
            If My.Computer.Network.Ping(ip) Then
                host = host & vbNewLine & ip
            End If
            MAJ_inter_thread(Label3, host)
        Next
    End Sub

    ' Ceci permet de faire une modification "thread safe" sur des labels, ...
    Private Delegate Sub _MAJ_inter_thread(label As Label, ByVal valeur As String)
    Private Sub MAJ_inter_thread(label As Label, ByVal valeur As String)
        If Label2.InvokeRequired Then
            Dim d As New _MAJ_inter_thread(AddressOf MAJ_inter_thread)
            Me.Invoke(d, New Object() {label, valeur})
            Exit Sub
        End If

        ' Modifie le texte du label passé en paramètre
        label.Text = valeur

    End Sub