VBScript Code for Progress Bar Within Outlook ustom Form

[Grippen]

Has anyone got example VB Script Code that will show a Progress Bar on a Custom Outlook Form while the form executes a long For...Next loop?

Thanks