Ping from VB?

How do you send a PING from VB? I did a search on VB world and got a response, however the link to the tip was bad. An help would be appreciated.

http://hdvb.net/vb-world.net/modMain.bas