Property Get Progress As ISDBProgress
Returns SDBProgress object. It is also initialized and shown this way. In order to further modify the progress bar, see SDBProgress properties.
Dim Progress Set Progress = SDB.Progress Progress.Text = SDB.Localize("Exporting...") Progress.MaxValue = list.count for i=0 to list.count-1 '... some code here Progress.Value = i+1 next