Shell CMD ping

看到有人問,在net 下怎shell ping ip ; 底下範例:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("CMD.exe /c ping 127.0.0.1 -t", AppWinStyle.MinimizedNoFocus, False, -1)
End Sub
End Class