PROGRESS BAR| Barra de progreso?

[dArKo2]

cual seria la forma mas facil de crear una barra de progreso en VBScript? quiero crear una que cuente unos 40 segundos mas o menos....eh leido algunos ejemplos en internet pero son demasiado largos