set progressbar = XSIUIToolkit.ProgressBar
progressbar.Maximum = 1000 
for i = progressbar.Minimum to progressbar.Maximum
        ' If the user has pressed cancel then exit the loop
        if progressbar.CancelPressed then
                exit for
        end if
        ' Otherwise increment
        progressbar.Increment 1         
next