You can use the progress bar const. I use it in my script, it works very well. Here is an example (just populate with your information)
On Error Resume next
Const FOF_CREATEPROGRESSDLG = &H10&
Dim ParentFolder, objShell, objFolder, objNet, strName
Set objNet =...