How to detect the ping packets in the network?

I am try to write a program in VB to detect the incoming ping packets, anyone here can help me?

Winsocks won't be able to help you with looking or detecting network packets/pings. You'll need a firewall or some gateway software.

Try http://www.ntfirewall.com