Public Structure RBData
        Public Property RB As RadioButton
        Public Property IP As String
        Public Property Versuche As Integer
        Public Sub New(ByVal RB As RadioButton, ByVal IP As String)
            Me.RB = RB
            Me.IP = IP
        End Sub
    End Structure
 
    Public RBS As New List(Of RBData)
 
    Private Sub Test()
        RBS.Add(New RBData(RadioButton1, "192.168.10.1"))
        ' ...
 
        RBS(i).RB.Checked = True
        Ping(RBS(i).IP)
        RBS(i).Versuche += 1
 
        ' usw
    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