Public Class frmInterrupt
 
    Dim WithEvents btnStop As New Button With _
        {.Parent = Me, .Text = "Stop"}
 
    Dim stopped As Boolean
    Dim counter As Integer
 
 
    Private Sub frmInterrupt_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'auszuführende Prozedur als Hintergrundprozeß starten
        Dim wrk As New Threading.Thread(AddressOf Work)
        wrk.Start()
    End Sub
 
 
    Private Sub Work()
 
        counter = 0 : stopped = False
 
        Do
            If stopped Then
                'Unterbrechen des Thread für je 0,5 Sek.
                Threading.Thread.Sleep(500)
            Else
                counter += 1
 
                'Hier die auszuführenden Operationen innerhalb
                'der Schleife codieren
                '................
 
                If counter Mod 100 = 0 Then
                    'Fortschritt-Anzeige in GUI-Thread
                    Me.Invoke(New MethodInvoker(AddressOf showcounter))
                End If
            End If
        Loop Until counter = Integer.MaxValue - 1
    End Sub
 
 
    Private Sub showcounter()
        Me.Text = counter.ToString
    End Sub
 
 
    Private Sub btnStop_Click(sender As Object, _
        e As System.EventArgs) Handles btnStop.Click
        'anhalten und Fortsetzen
        stopped = Not stopped
    End Sub
End Class