Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim ip As String
Dim sw As New Stopwatch

ip = TextBox1.Text

If My.Computer.Network.Ping(ip) Then
sw.Start()
My.Computer.Network.Ping(ip)
sw.Stop()
Label1.Text = "Elapsed Time :" & (sw.ElapsedMilliseconds) & "ms"
End If
End Sub
End Class