Visual Basic(Microsoft) -VB.NET 2002-2008 FAQ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   'first, disable the button1 object
   'so the user can't click it again
   Button1.Enabled = False
   del = New ProcessDelegate(AddressOf Me.Process)
   Dim cb As New AsyncCallback(AddressOf Me.ProcessComplete)
   del.BeginInvoke(cb, del)
End Sub

'The Delegate definition
Protected Delegate Sub ProcessDelegate()

'The delegate that will launch the
'process
Protected del As ProcessDelegate

'The Callback method the will launch
'in the original thread when the thread
'completes
Protected Sub ProcessComplete(ByVal ar As System.IAsyncResult)
  me.button1.enabled = true
end sub

'The long process
Protected Sub Process()
   For a As Integer = 1 To 10
      For b As Integer = 1 To 100000000
         'do something really
         'important here
      Next
      'simulate a progress bar
      '(This stuff should be handled in a
      'thread safe manor, but this will
      'work pre-2k5)
      Label2.Text = a.ToString
      Label2.Refresh()
   Next
End Sub