Pinger Tempo de resposta

[astronfestmon]

Olá,
fiz este programa em visual basic 2008 que é um pinger tempo de resposta em gui. Foi para aprender a usar os comandos externos ao vb 2008. Também fazer um echo gráfico.
Estou a programar outro programa mas em c++. Em que consiste num logger, esse logger é baseado num outro programa que eu tenho e que queria partillhá-lo convosco.

Obrigado

Code Select Expand





Option Explicit On

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim host As String
        Dim counter As Integer
        Dim hosping As String
        host = TextBox1.Text
        For counter = 1 To 100
            hosping = Shell("C:\Windows\System32\ping.exe -t -a -w 6800" + host)
            ListBox1.Items.Add(hosping)
        Next

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub
End Class




Este programa tem que estar em Form1.vb