用VB如合寫出一個ping的功能(編號:3304)

請問各位高手
用VB要怎麼寫ping的功能?
傳入一個ip..
傳回true or false?
最好能像DOS mode那樣, 馬上就能知到結果...