' Thread routine
    Private Sub doit()
        While Not term
            If Not halt.WaitOne(0, False) Then
                ' Hier kann der Thread etwas machen bevor er angehalten wird.
                Debug.WriteLine("Now I'm going to stop, probably")
                halt.WaitOne()
            End If
            Debug.WriteLine("Thread running")
            Thread.Sleep(500)
        End While
        Debug.WriteLine("Thread terminating")
    End Sub
 
    ' End application
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Debug.WriteLine("Terminating")
        term = True
        halt.Set() ' Ensure thread is running
        t.Join()
        Debug.WriteLine("Application terminating")
        Me.Close()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist