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