VbNet Application. Ping

[oregon]

Semplicemente così

        Dim ping As New System.Net.NetworkInformation.Ping
        Dim ms = ping.Send("www.google.it").RoundtripTime()
        MsgBox(ms)