For t As Integer = 1 To 50
            System.Threading.Thread.Sleep(100) '50 * 0.1 sek warten
            Application.DoEvents()
            If Abbruch Then Exit Do
Next

        Dim SW As New Stopwatch
        SW.Start()
 
        Do
            Application.DoEvents()
        Loop While SW.ElapsedMilliseconds < 5000

Gru?

Silver