Kod:
Sub Test()
Shell "cmd /C" & "ping www.msdn.com"
End Sub
Sub Test2()
Shell "cmd /C" & "ping 207.46.130.108"
End Sub
Sub Test3()
Shell "command.com /c ping www.msdn.com", 1
End Sub
Sub Test4()
Shell "command.com /c ping 207.46.130.108", 1
End Sub
Private Sub CommandButton1_Click()
Shell "command.com /c ping " & TextBox1.Text, 1
End Sub