Imports System.Diagnostics
Public Class Form1
    Dim su As Stopwatch = New Stopwatch
    Private Sub sentPing()
        su.Reset()
        su.Start()
        If My.Computer.Network.Ping("10.60.4.121") Then
            su.Stop()
            MsgBox("Server pinged successfully in " & _
              su.ElapsedMilliseconds.ToString & " mS")
        Else
            MsgBox("Ping request timed out.")
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        sentPing()
    End Sub
End Class