Private Sub Test()
        myWorker(10, 15)
        myWorker(16, 20)
        '...
    End Sub
 
    Private Sub myWorker(ByVal arg1 As Integer, ByVal arg2 As Integer)
        Dim msh As New my_subhandler(AddressOf my_sub)
        msh.BeginInvoke(arg1, arg2, AddressOf threadEnded, Nothing)
    End Sub
 
    Private Sub my_sub(ByVal arg1 As Integer, ByVal arg2 As Integer)
       For ip4 As Integer = arg1 To arg2
           Ping(.... & ip4.ToString())
           ' ....
       Next 
    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