[2008] Ping Tool that looks exactly as in the command prompt

Ei, can anybody help me to develop a software that produce exactly or not some information when using Ping. like, Ping Statistics etc.

Code:

---


Try
                p = New Ping

                pReply = p.Send(CF.Text)

                stat = pReply.Status.ToString

                If stat = "Success" Then

                    stat = "Successful! [TTL=" & pReply.Options.Ttl & "]"


                ElseIf stat = "TimedOut" Then
                    stat = "Request Timed Out!"
                End If

            Catch pExc As PingException

                stat = pExc.InnerException.Message

                stat = "Invalid Host"

            End Try

---