How do I code the progress property under VBScript

There are a couple of examples here:

The second thread is probably closest to what you are doing.