Problemer med CancelKnap i Progress Indicator / ProgressReporter

Eksempel:

Dim Prog As ProgressReporter.Progressor
Sub test()
    Dim N As Long

    If Prog Is Nothing Then
        Set Prog = New ProgressReporter.Progressor
    End If
    With Prog
        .MinimumValue = 0
        .MaximumValue = 100000
        .SetParentWindow 0
        .CurrentValue = 0
        .Show
        For N = 1 To 100000
            '
            ' your code here

Rem Her er betingelsen (eks) at når 50000 er nået så afbrydes Progressor
            If N = 50000 Then
                UserCancel = True        '<------------
                Prog.Destroy            '<--- Progressor "fjernes"
                Exit For
            End If
            '
            DoEvents
            .Increment 1
        Next N
    End With
End Sub

Hej Supertekst

Tak for dit svar - men problemet er, at løkken skal brydes/afsluttes når brugeren trykker på Cancel-knappen og ikke efter et bestemt antal kørsler af løkken.

Jeg har i mellem tiden selv implementeret min egen progressbar, hvor cancel-knappen virker.

Jeg lukker tråden nu.

Mvh
Yev

Ok

Lukker tråden.