Laços controlados por tempo

Question

Olá, estou tentado fazer um programa semelhante ao teste ping do prompt de comando, porém estou com uma dúvida terrível...

Preciso que o laço seja executado por tempo (exemplo, a cada 15 segundos meu programa faça um teste ping), e que cada linha na minha textbox apareça nesse período de tempo, porém não acho nada...

Eis o código que estou testando...

 Dim alinha As String
        Dim i As Integer
        alinha = Chr(13) & Chr(10)
        i = 1
        While i < 15
            If My.Computer.Network.Ping(TextBox1.Text) Then
                TextBox2.Text = TextBox2.Text & "Resposta de " & TextBox1.Text & " com sucesso" & alinha
            Else
                TextBox2.Text = TextBox2.Text & "Esgotado o tempo limite" & alinha
            End If
            i += 1
        End While

Answer 1

Você pode usar Thread.Sleep(15000) isso vai fazer seu codigo parar durante 15 segundos.

Answer 2

vc pode usar a thread lembre -se de importar a biblioteca Threading

Imports System.Threading

como o  rapaz anterio disse seu codigo ficara assim

Dim alinha As String
        Dim i As Integer
        alinha = Chr(13) & Chr(10)
        i = 1
        While i < 15
            If My.Computer.Network.Ping(TextBox1.Text) Then
                TextBox2.Text = TextBox2.Text & "Resposta de " & TextBox1.Text & " com sucesso" & alinha
            Else
                TextBox2.Text = TextBox2.Text & "Esgotado o tempo limite" & alinha
            End If
            i += 1
           Thread.Sleep(15000)
        End While