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