Как получить IP-адрес, постоянно используя многопоточность?

---

Поэтому я хочу постоянно нисходить строку из Webclient с помощью потоковой передачи, но, похоже, не могу найти способ сделать это.

У меня есть VPN и метка на моей форме, я хочу что-то, что всякий раз, когда я подключаюсь к своей vpn или отключаю метку, обновляет текст на ip.

Что я уже пробовал:

Do Until i = -1
            i = i + 1
            Try
                Dim client As WebClient = New WebClient()
                Dim reply As String = client.DownloadString("http://tools.feron.it/php/ip.php")
                eLabel2.Text = reply

            Catch ex As Exception
                Dim client As WebClient = New WebClient()
                Dim reply As String = client.DownloadString("http://tools.feron.it/php/ip.php")
                eLabel2.Text = reply

            End Try
        Loop

---