Private Sub DoSomethingInBackGround()
End Sub
Protected Sub btnRunInBackGround_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRunInBackGround.Click
Dim backGroundThreadStart As New Threading.ThreadStart(AddressOf DoSomethingInBackGround)
Dim backGroundThread As New Threading.Thread(backGroundThreadStart)
backGroundThread.Start()
End Sub