' Wenn schon abgefragt wird, Abfragen stoppen und neu starten
                    If thPollen.ThreadState = Threading.ThreadState.Running Then
                        thPollen.Abort()
                        AddDebug("Pollen beenden ...")
                        thPollen = New Threading.Thread(AddressOf Pollen)
                        thPollen.Start()
                    Else
                        thPollen = New Threading.Thread(AddressOf Pollen)
                        thPollen.Start()
                    End If

    Private Sub Pollen()
        Try
            Do While Not Cancel
                getPollen()
            Loop
        Catch ex As Exception
            'Thread wurde unterbrochen
            AddDebug(ex.Message)
        End Try
        _ConnectStatus.UpdateChannelValue(False)
 
    End Sub

Private Sub getPollen()
        ' XML einmal abfragen
End Sub