Dim time As Date = Now
Do Until Now = DateAdd("s", 5, time)
    Application.DoEvents()
Loop

Public Class Form1
 
    Private mythread As New Threading.Thread(AddressOf MeineBerechnungen)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        mythread.Start()
    End Sub
 
    Private Sub MeineBerechnungen()
        For i As Integer = 0 To 20
            'Hier wird berechnet
            'trallala.....
 
            '...und jetzt wird geschnarcht
            Threading.Thread.Sleep(5000) 'Oder wielang auch immer...
        Next
    End Sub
 
End Class

Zitat:

Multithreadinganwendungen sind mit steigender Größe unübersichtlich und viel anfälliger für Fehler.

Zitat:

Und wenn mit dem Ergebnis weiter gearbeitet werden soll, müssen ebenfalls noch paar Codezeilen implementiert werden.

Ralf