her er koden som der bliver kørt 5 gange af hver BackgroundWorker
-----
Private Function GetXMLfromPhone(ByVal ipaddress As System.Net.IPAddress, ByVal CallingWorker As Integer, Optional ByVal XMLgetTimeout As Integer = 2000) As string
Dim request As WebRequest
Dim PhoneXML As New Xml.XmlDocument
Dim result As String = Nothing
Dim FejlString As String = ""
Dim FejlResponce As String = ""
Dim errorNo As Boolean = False
request = WebRequest.Create("
http://" & ipaddress.ToString & "/XMLinfo")
Dim response As HttpWebResponse = Nothing
request.Timeout = XMLgetTimeout
RaiseEvent UpdateWorkerIpInfo(CallingWorker, ipaddress.ToString)
Try
response = CType(request.GetResponse(), HttpWebResponse)
Dim dataStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
result = reader.ReadToEnd()
Catch ex As WebException
FejlString = "HTML:WEB:" & ex.Status
errorNo = True
Catch ex As Exception
FejlString = ex.ToString
errorNo = True
Finally
If Not response Is Nothing Then response.Close()
End Try
return result
End Function