Dim Versuche As Integer
        Dim Ip As String
 
        For RadioObjectCount = 1 To 9
 
            Select Case RadioObjectCount
                Case 1
                    Ip = "192.168.1.1"
                Case 2
                    Ip = "192.168.1.111"
                Case 3
                    Ip = "192.168.2.1"
                Case 4
                    Ip = "192.168.2.112"
                Case 5
                    Ip = "192.168.71.136"
                Case 6
                    Ip = "192.168.2.254"
                Case 7
                    Ip = "192.168.71.1"
                Case 8
                    Ip = "192.168.30.40"
                Case 9
                    Ip = "192.168.0.254"
            End Select
 
            For Versuche = 1 To 3
                If My.Computer.Network.Ping(Ip) Then
                    If CType(Me.Controls("RadioButton" & RadioObjectCount), _
  RadioButton).Checked() = False Then
                        If Val(Me.Controls("RadioButton" & _
                        RadioObjectCount).Tag) > 3 Then Fehlertext$ = _
                        Fehlertext$ & Date.Now & "  -  " & Me.Controls( _
                        "RadioButton" & RadioObjectCount).Text & " wieder" & _
                        "verfügbar" & vbCrLf
                    End If
                    CType(Me.Controls("RadioButton" & RadioObjectCount), _
                      RadioButton).Checked() = True
                    Me.Controls("RadioButton" & RadioObjectCount).Tag = "0"
                    Versuche = 3
                Else
                    If Versuche = 3 Then
                        CType(Me.Controls("RadioButton" & RadioObjectCount), _
                          RadioButton).Checked() = False
                        Me.Controls("RadioButton" & RadioObjectCount).Tag = Val( _
                        Me.Controls("RadioButton" & RadioObjectCount).Tag) + 1
                    End If
                End If
            Next
            ProgressBar1.Value = RadioObjectCount : Application.DoEvents()
        Next