Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
       System.EventArgs) Handles MyBase.Load
        Debug.WriteLine(Now.ToShortTimeString())
        Dim pingers(255) As System.Net.NetworkInformation.Ping
        For i As Integer = 1 To 254
            pingers(i) = New System.Net.NetworkInformation.Ping()
            AddHandler pingers(i).PingCompleted, AddressOf PingCompleted
            pingers(i).SendAsync("192.168.10." & i.ToString(), Nothing)
        Next
    End Sub
 
    Private Sub PingCompleted(ByVal sender As Object, ByVal e As _
      System.Net.NetworkInformation.PingCompletedEventArgs)
        Debug.WriteLine(e.Reply.Address.ToString() & "=" & _
        e.Reply.Status.ToString())
        Debug.WriteLine(Now.ToShortTimeString())
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist