[SOLVED] Interation Not Working

[kismetgerald]

I'm using a DO interation to loop a function I'm using to test for internet connectivity. The code is working fine, except that when one of the tests is satisfied the loop stops. I want this to continue in the background while the program is running. How can I get this to work?

Here's the code:

Code:

Private Sub checkInternet()
        
        Dim InetChecker As Boolean
        InetChecker = CheckForInternetConnection()
        Do While LabelCount.Text <> ""
            Thread.Sleep(10)
            If InetChecker = True Then
                Dim image = My.Resources.greenbar
                PictureBox4.Image = image

            Else
                Thread.Sleep(10)
                Dim image = My.Resources.redbar
                PictureBox4.Image = image
                'NoInetConnError.Show()
            End If
        Loop
    End Sub