ProgressBar class in LotusScript

This is a very simple class, to let the user (in Notes) know how long to wait for an operation. Can be used like this:

Dim i As Long

Dim p As New Progressbar(100, 10000)

For i = 0 To 10000

Call p.update(i)

Next i