Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            Dim p As New Process
            With p.StartInfo
                .FileName = "ping.exe"
                .Arguments = TextBox1.Text & " -n 1"
                .CreateNoWindow = True
                .UseShellExecute = False
                .RedirectStandardOutput = True
            End With
            p.Start()
            'p.WaitForExit()
            Dim sr As New IO.StreamReader(p.StandardOutput.BaseStream, _
              System.Text.Encoding.GetEncoding(850))
            Debug.WriteLine(sr.ReadToEnd)
            Debug.WriteLine("Exit code " & p.ExitCode)
        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
        End Try
    End Sub