Private Sub cmdTeststarten_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdTeststarten.Click
 
        Dim trd As New Threading.Thread(AddressOf Run)
 
        trd.Start()
 
    End Sub
 
    Private Sub Run()
 
        Do
            'Hinzufügen und dann 1 sek Pause.
            ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf _
              Start))
            System.Threading.Thread.CurrentThread.Sleep(1000)
        Loop
 
    End Sub
 
    Private Sub Start(ByVal state As Object)
 
        Me.Text = "Pause..."
 
        System.Threading.Thread.CurrentThread.Sleep(500)
 
        Me.Text = "Erstelle Threads..."
        Me.lblThread1.Text = ""
        Me.lblThread2.Text = ""
        Me.lblThread3.Text = ""
 
        Dim thrThread1 As New Threading.Thread(AddressOf Thread1)
        Dim thrThread2 As New Threading.Thread(AddressOf Thread2)
        Dim thrThread3 As New Threading.Thread(AddressOf Thread3)
 
        Me.Text = "Start..."
 
        thrThread1.Start()
        thrThread2.Start()
        thrThread3.Start()
 
        Me.Text = "Synchronisiere..."
 
        thrThread1.Join()
        thrThread2.Join()
        thrThread3.Join()
 
        Me.Text = "Ready"
 
    End Sub
 
    Private Sub Thread1()
 
        System.Threading.Thread.CurrentThread.Sleep(500)
        Me.ListBox1.Items.Add("Thread1")
 
    End Sub
 
    Private Sub Thread2()
 
        System.Threading.Thread.CurrentThread.Sleep(1000)
        Me.ListBox1.Items.Add("Thread2")
 
    End Sub
 
    Private Sub Thread3()
 
         System.Threading.Thread.CurrentThread.Sleep(750)
        Me.ListBox1.Items.Add("Thread3")
 
    End Sub