Private Spid As New Spider
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        lstLinks.DataSource = Spider.strAllLinks
        lstMails.DataSource = Spider.strAllMails
    End Sub
 
    Private Sub tim_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tim.Tick
        labLinks.Text = "Links: " & Spider.strAllLinks.Count
        labMails.Text = "Mails: " & Spider.strAllMails.Count
 
        ' fertig ?
        ThreadPool.GetAvailableThreads(availWorker, availCPT)
        ThreadPool.GetMaxThreads(maxWorker, maxCPT)
 
        If availWorker = maxWorker Then labStatus.Text = "Fertig.."
    End Sub
 
Public Class Spider
 
    Public Shared intMaxTiefe As Integer
 
    Public Shared strAllLinks As New List(Of String)
    Public Shared strAllMails As New List(Of String)
 
    Public Sub Starten(ByVal strLink As String, ByVal intTiefe As Integer)
        intMaxTiefe = intTiefe
 
        Dim myArgs As New SpiderArgumente
        myArgs.Link = strLink
        myArgs.Tiefe = 1
 
        ThreadPool.QueueUserWorkItem(AddressOf Spider, myArgs)
 
    End Sub
 
    Public Sub Stoppen()
        intMaxTiefe = -1
    End Sub
 
    Private Sub Spider(ByVal state As Object)
        ' Parameter parsen
        ' ByVal strLink As String, ByVal intTiefe As Integer
        Dim arguments As SpiderArgumente = DirectCast(state, SpiderArgumente)
        Dim intTiefe As Integer = arguments.Tiefe
        Dim strLink As String = arguments.Link
 
        If intTiefe > intMaxTiefe Then Exit Sub
 
        ' source in var schreiben
        Dim strSource As String = GetSourcecode(strLink)
        If strSource = "" Then Exit Sub
 
        ' links filtern
        Dim strLinks As List(Of String) = GetLinks(strSource, strLink)
        If strLinks.Count > 0 Then
            strAllLinks.AddRange(strLinks)
        End If
 
        ' mails filtern
        Dim strMails As List(Of String) = GetMails(strSource)
        If strMails.Count > 0 Then
            strAllMails.AddRange(strMails)
        End If
 
 
        ' rekusiv
        If strLinks.Count > 0 Then
            For i As Integer = 0 To strLinks.Count - 1
                Application.DoEvents()
                If intTiefe > intMaxTiefe Then Exit Sub ' stop button
 
                ' argumente setzen
                Dim myArgs As New SpiderArgumente
                myArgs.Link = strLinks(i)
                myArgs.Tiefe = intTiefe + 1
                ThreadPool.QueueUserWorkItem(AddressOf Spider, myArgs)
            Next
        End If
    End Sub
End Class

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?