Public Class Form1
  Inherits System.Windows.Forms.Form
  Dim m_Thread As System.Threading.Thread
  Friend WithEvents Button As System.Windows.Forms.Button
  Dim WithEvents m_Process As ProcessCalculations

#Region " Windows Form Designer generated code "

  Public Sub New()
    MyBase.New()

    'This call is required by the Windows Form Designer.
    InitializeComponent()

    'Add any initialization after the InitializeComponent() call

  End Sub

  'Form overrides dispose to clean up the component list.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub

  'Required by the Windows Form Designer
  Private components As System.ComponentModel.IContainer

  'NOTE: The following procedure is required by the Windows Form Designer
  'It can be modified using the Windows Form Designer.  
  'Do not modify it using the code editor.
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.Button = New System.Windows.Forms.Button()
    Me.SuspendLayout()
    '
    'Button
    '
    Me.Button.Location = New System.Drawing.Point(104, 64)
    Me.Button.Name = "Button"
    Me.Button.TabIndex = 0
    Me.Button.Text = "Button"
    '
    'Form1
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button})
    Me.Name = "Form1"
    Me.Text = "Form1"
    Me.ResumeLayout(False)

  End Sub

#End Region

  Private Sub Button_Click _
  (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  Handles Button.Click
    m_Process = New ProcessCalculations()

    'Create and start a thread to do background processing
    m_Thread = New System.Threading.Thread(AddressOf m_Process.Process)

    m_Thread.Start()

  End Sub
  Private Sub ProcessCompleted() Handles m_Process.ThreadDone
    'Calculation process is complete,

    Beep()
  End Sub

End Class
Public Class ProcessCalculations
  Public Event ThreadDone()

  Public Sub Process()
    'Process Calculations

    'Signal that the thread is complete
    RaiseEvent ThreadDone()
  End Sub
End Class