Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Dim t_excel As New Threading.Thread(AddressOf Excel)
t_excel.Start()
End Sub

Dove Excel e una sub che salva i dati di un db in un file excel.
alla fine di questa sub ho messo prima

t_excel.Abort()

poi niente, ma è la stessa cosa.