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