Public Class frmInvoke
   Dim manualEvent As Threading.ManualResetEvent
   Private TimerThread As New Threading.Thread(New Threading.ThreadStart( _
     AddressOf ThreadWork))
   Private Delegate Sub TimeDelegate()
 
   Private Sub frmInvoke_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      manualEvent = New Threading.ManualResetEvent(False)
      TimerThread.IsBackground = True
      TimerThread.Start()
   End Sub
 
   Private Sub btnStartTimer_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles btnStartTimer.Click
      manualEvent.Set()
   End Sub
 
   Private Sub btnStopTimer_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles btnStopTimer.Click
      manualEvent.Reset()
   End Sub
 
   Public Sub ThreadWork()
      Do
         manualEvent.WaitOne()
         Me.tbTime.Invoke(New TimeDelegate(AddressOf RefreshTime))
         Threading.Thread.Sleep(200)
      Loop
   End Sub
 
   Public Sub RefreshTime()
      Me.tbTime.Text = Date.Now.ToLongTimeString & ":" & _
        Date.Now.Millisecond.ToString
   End Sub
End Class