[Sapientia]

Alright, so lets add to our form: 2 Labels, 2 TextBox Controls and 1 Button. Make your form look something along the lines of this:


View the code for your project, and paste this function in:

Code:

Public Function Ping(ByVal server As String) As String
        Dim ElapseTime As New Stopwatch
        ElapseTime.Start()
        My.Computer.Network.Ping(server)
        ElapseTime.Stop()
        Return ElapseTime.Elapsed.TotalSeconds.ToString("N")
    End Function

Go back to your design, double click your button and paste this code:

Code:

TextBox2.Text = Ping(TextBox1.Text) & " Seconds"

If you did it correct, you should see something like this:

[Eternity]

I think it should be 0.33 Secs and not 0.33 MS.
But good work

[Sapientia]

Oh, whoops. Thanks for pointing that out