Using P As New System.Net.NetworkInformation.Ping() Dim r = P.Send("www.yahoo.co.jp") If r.Status = System.Net.NetworkInformation.IPStatus.Success Then TextBox1.Text = $"Reply from {r.Address}:bytes={r.Buffer.Length} time={r.RoundtripTime}ms TTL={r.Options.Ttl}" Else TextBox1.Text = "失敗: " & r.Status End If End Using https://dobon.net/vb/dotnet/internet/ping.html