I have a webpage that is a site monitoring tool for my company. Basically, it pulls a list of 150 IP addresses from a database, and checks if the webpage loads for them. This takes about 15 minutes to load, I'd like it to load the list and go 1 by 1 and update the status with text or an icon.Here is my Function block, any way to thread this or help me get to what I need to get to?\[code\]Function SiteMonitorResults(ByVal WebAddress As String) Try 'Code Example Dim httpReq As HttpWebRequest = DirectCast(WebRequest.Create(WebAddress), HttpWebRequest) httpReq.AllowAutoRedirect = False Dim httpRes As HttpWebResponse = DirectCast(httpReq.GetResponse(), HttpWebResponse) ' Close the response. httpRes.Close() ' Code for NotFound resources goes here. If httpRes.StatusCode = HttpStatusCode.OK Then Return "Online" Else Return "Offline" End If Catch ex As Exception Return "Unknown" End TryEnd Function\[/code\]