Imports System.Threading
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        test()
    End Sub
 
    Shared Sub Zählen()
        Dim i As Integer
        Dim strText As String = ""
 
        Try
            Do While True
                strText += "Hallo Welt zum " & i & "-ten Mal" & vbCrLf
                Form1.RichTextBox1.Text = strText
                Form1.RichTextBox1.Refresh()
                i += 1
            Loop
        Catch ex As ThreadAbortException
            ' hier Aufräumarbeiten einfügen
            Return
        End Try
    End Sub
 
    Shared Sub test()
        Dim t As New Threading.Thread(AddressOf Zählen)
 
        t.Start()
        'irgendwelche Aufgaben, die den Thread beenden wollen
        If Form1.ckbTest.Checked = True Then
            t.Abort()
        End If
        ' wenn man jetzt den Thread wieder starten möchte, wird eine Exception 
        ' ausgelöst
    End Sub
 
End Class

Ralf

Imports System.Threading
 
Public Class Form1
 
    Dim strText As String
    Dim t As New Threading.Thread(AddressOf Zählen)
    Dim UpdateSteuerelement As New MethodInvoker(AddressOf UpdateLabel) ' 
    ' Delegate
 
    Private Sub UpdateLabel()
        RichTextBox1.Text = strText
        RichTextBox1.Refresh()
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        test()
    End Sub
 
    Sub Zählen()
 
        Try
            For j As Integer = 1 To 20
                strText += "Dies ist der " & j & "-Text Durchlauf" & vbCrLf
                Me.Invoke(UpdateSteuerelement)
                j += 1
                Thread.Sleep(1000)
            Next
        Catch ex As ThreadInterruptedException
            ' hier Aufräumarbeiten einfügen
            strText += "Thread wurde unterbrochen" & vbCrLf
            Me.Invoke(UpdateSteuerelement)
            Return
        End Try
    End Sub
 
    Private Sub test()
        t.Start()
        'irgendwelche Aufgaben, die den Thread beenden wollen
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        t.Interrupt()
    End Sub
End Class