Public Sub pingme(ByVal s As String)
        Dim pingsender As Ping = New Ping
        Dim reply As PingReply
 
        Try
            reply = pingsender.Send(s)
 
            Select Case reply.Status
                Case IPStatus.Success
                    ListView1.Items.Add("Address: " + reply.Address.ToString)
                    ListView1.Items.Add("RoundTrip time: " + _
                      reply.RoundtripTime.ToString)
                    ListView1.Items.Add("Time to live: " + _
                    reply.Options.Ttl.ToString)
                    ListView1.Items.Add("Don't fragment: " + _
                    reply.Options.DontFragment.ToString)
                    ListView1.Items.Add("Buffer size: " + _
                    reply.Buffer.Length.ToString)
                    ListView1.Items.Add("Status: " + reply.Status.ToString)
                    ListView1.Refresh()
                Case Else
                    MessageBox.Show(reply.Status.ToString)
            End Select
        Catch ex As PingException
            MessageBox.Show(ex.InnerException.Message.ToString)
        End Try
 
    End Sub