Public Function IPPingMonitoring2() As Integer
        Dim IPPingMonitoring2Result As Boolean
 
        IPPingMonitoring2Result = My.Computer.Network.Ping(TextBox1.Text)
        While True 'Stimmt das so?????
 
            If IPPingMonitoring2Result = True Then
                Ergebnis = ("verfügbar")
                MsgBox("Die IP Adresse ist " & Ergebnis)
 
 
            ElseIf IPPingMonitoring2Result = False Then
                Ergebnis = ("nicht verfügbar")
                MsgBox("Die IP Adresse ist " & Ergebnis)
 
            End If
            System.Threading.Thread.Sleep(30000)
        End While
 End Function