Imports System.Threading
 
Public Class Form1
 
    Dim t As New Thread(AddressOf doit)
 
    Dim term As Boolean
    Dim running As Boolean
 
    Dim halt As New ManualResetEvent(True)
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        t.Start()
        running = True
    End Sub
 
    ' Stop thread
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Debug.WriteLine("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
        Debug.WriteLine("Restarting thread")
        halt.Set()
        running = True
    End Sub
 
    Private Sub doit()
        While Not term
            halt.WaitOne()
            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
        t.Join()
        Debug.WriteLine("Application terminating")
        Me.Close()
    End Sub
 
End Class

________
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