VB.Net BackgroundWorker

A BackgroundWorker runs an asyncron thread for you.

Private WithEvents backgroundWorker1 As New System.ComponentModel.BackgroundWorker

' Start the BackgroundWorker
Public Sub RunAbackgroundworker()
If Not backgroundWorker1.IsBusy Then
backgroundWorker1.RunWorkerAsync()
End If
End Sub

Dim i As Integer = 0

Private Sub backgroundWorker1_DoWork(ByVal sender As Object, ByVal e As _
System.ComponentModel.DoWorkEventArgs) Handles backgroundWorker1.DoWork
i = 0
Do
i += 1
If i > 100 Then
Exit Do
End If
System.Threading.Thread.Sleep(50)
Loop
End Sub

Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As Object, _
ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
backgroundWorker1.RunWorkerCompleted
MsgBox("We are done now!")
End Sub