This sub prints to the status bar in Notes. Just call the sub from anywhere in your code, passing a number to be used as the percentage complete. (Simplified version of a script by Erden Eruc@NGSINC at http://www.keysolutions.com/NotesFAQ/howprogress.html).
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
Sub PrintProgress(PerCent As Integer)
Dim str As String
str = Cstr(PerCent) & "% "
str = str & Ustring$(PerCent, Uni(Chr(1)))
str = str & Ustring$((99 - PerCent), "-")
str = str & Ustring(1, Uni(Chr(1)))