edito
ya hice uno pero esta muy lento tarda mucho en terminar de hacer los ping
Código
Imports System.Net Public Class Form1 Dim a As Integer Dim b As Integer Dim i As Integer Dim t As Integer Dim eco As New System.Net.NetworkInformation.Ping Dim respuesta As System.Net.NetworkInformation.PingReply Dim algo As System.Net.NetworkInformation.IPInterfaceProperties Dim ip As IPAddress Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click b = Val(TextBox2.Text) a = Val(TextBox3.Text) t = 0 For i = a To b TextBox4.Text = i ip = IPAddress.Parse("192.168.1." + TextBox4.Text) respuesta = eco.Send(ip) If respuesta.Status = NetworkInformation.IPStatus.Success Then TextBox1.Text = TextBox1.Text + "Respuesta desde: " & respuesta.Address.ToString + vbCrLf Else TextBox1.Text = TextBox1.Text + "Sin Respuesta" + vbCrLf End If Next End Sub End Class