running = True
        term = True

 
    Public Delegate Sub LogLineHandler(ByVal t As String)
 
    Public Sub LogLine(ByVal t As String)
        If Me.InvokeRequired Then
            Me.Invoke(New LogLineHandler(AddressOf LogLine), New String() {t})
            Return
        End If
        RichTextBox1.AppendText(t & vbCrLf)
        RichTextBox1.ScrollToCaret()
    End Sub
 
    ' Stop thread
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        LogLine("Stopping thread")
        halt.Reset()
        running = False
    End Sub
 
    ' Restart thread
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        LogLine("Restarting thread")
        running = True
        halt.Set()
    End Sub
 
    ' Thread routine
    Private Sub doit()
        While Not term
            If Not halt.WaitOne(0, False) Then
                LogLine("Now I'm going to stop, probably")
                halt.WaitOne()
                LogLine("Now I'm running (again)")
            End If
            LogLine("Thread running")
            Thread.Sleep(500)
        End While
        LogLine("Thread terminating")
        running = False
    End Sub
 
    ' End application
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        LogLine("Terminating")
        running = True
        term = True
        halt.Set() ' Ensure thread is running
        While running
            Application.DoEvents()
            Thread.Sleep(100)
        End While
        t.Join()
        LogLine("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