Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Shared we As New ManualResetEvent(False)
    Private Shared T As Thread
    Private closeDown As Boolean
 
#Region " Windows Form Designer generated code "
 
    Public Sub DoThread()
        Do While Not closeDown
            we.WaitOne()
            Debug.WriteLine("Thread running")
            we.Reset()
        Loop
    End Sub
 
    Private Sub appIdle(ByVal sender As Object, ByVal e As EventArgs)
        Debug.WriteLine("App Idle")
        we.Set()
    End Sub
 
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        AddHandler Application.Idle, AddressOf appIdle
        T = New Thread(AddressOf DoThread)
        T.Start()
    End Sub
 
 
    Protected Overrides Sub OnClosing(ByVal e As _
      System.ComponentModel.CancelEventArgs)
        closeDown = True
        we.Set()
        T.Join()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Debug.WriteLine("Button clicked")
    End Sub
 
End Class