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