For RadioObjectCount = 0 To RBS.Count - 1
        For Versuche = 1 To 3
            If My.Computer.Network.Ping(RBS(RadioObjectCount).IP) Then
                If Not RBS(RadioObjectCount).RB.Checked Then
                    If RBS(RadioObjectCount).Versuche > 3 Then Fehlertext = _
                      Fehlertext & _
                      Date.Now & "  -  " & RBS(RadioObjectCount).RB.Text & _
                      " wieder verfügbar" & vbCrLf
                End If
                RBS(RadioObjectCount).RB.Checked = True
                RBS(RadioObjectCount).Versuche = 0
            ' ....       
        Next
        ' ...
    Next

________
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