private sub startPing()
       Dim hostId as Integer
        If (My.Computer.Network.Ping("10.49.68." & hostid)) Then
            Debug.WriteLine("OK: " & "10.49.68." & hostid)
        Else
            Debug.WriteLine("False: " & "10.49.68." & hostid)
        End If
end sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Me.hostid = 0
        While (Me.hostid < 10)
            'Me.BackgroundWorker1.RunWorkerAsync()
            Thread = New Threading.Thread(AddressOf startPing)
            Try
                Me.hostid = Me.hostid + 1
                Thread.Start()
            Catch ex As Exception
                Debug.WriteLine("Exception mit HostID: " & Me.hostid)
            End Try
        End While
 
    End Sub

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste