Ping Elapsed Time
VNote
2017.10.28 15:01:18
*: 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
