thPollen = New Threading.Thread(AddressOf Pollen)
                        thPollen.Start()

      Dim xpathDoc As XPathDocument
            Dim xmlNav As XPathNavigator
            Dim xmlResponse As XPathNodeIterator
            Dim xmlStatus As XPathNodeIterator
            Dim xmlProperty As XPathNodeIterator
            Dim Value As String = String.Empty
            Dim Svalue As Boolean = False
            Dim DValue As Double
            Dim uid As String = String.Empty
            Dim status As String = String.Empty
 
.....
 
If Cancel = False Then
                xpathDoc = Nothing
                xmlNav = Nothing
                xmlResponse = Nothing
                xmlStatus = Nothing
                xmlProperty = Nothing
                Value = Nothing
                Svalue = Nothing
                DValue = Nothing
                uid = Nothing
                status = Nothing
                Pollen()